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RESEARCH  SUMMARY 

This  publication  contains  programs  and  documentation 
to  implement  an  algorithm  for  calculating  lightning  fire 
probability.  This  calculation  is  based  on  a  model  originally 
developed  for  the  National  Fire-Danger  Rating  System.  The 
model  algorithm  estimates  the  probability  that  a  lightning 
discharge  from  cloud  to  ground  will  ignite  a  fire  in  fuels  at 
the  ground  terminus  of  the  lightning.  Probability  is  esti- 
mated using  variables  that  are  measures  of  the  fuel  state 
and  type,  rain,  and  lightning.  Details  of  the  model  can  be 
found  in  Fuquay  and  others  (1979),  Latham  (1979),  and 
Fuquay  (1980). 

The  lightning-locating  and  fire-forecasting  (LLAFFS) 
system  is  designed  to  combine  ignition  probability  with 
real-time  lightning  occurrence,  and  to  transmit  the  results 
to  the  land  manager.  The  lightning  occurrence  is  assumed 
to  be  given  by  a  Lightning  Location  and  Protection,  Inc., 
Position  Analyzer  in  the  form  of  a  time,  latitude,  and 
longitude  estimate  for  each  lightning  event  in  the  area 
covered  by  the  analyzer.  The  system  programs  use  weather 
variables  and  the  state  of  the  fuels  for  the  place  the  light- 
ning hit  ground;  the  algorithm  is  used  to  calculate  the 
probability  that  the  discharge  started  a  fire.  Probabilities 
are  added  with  varying  time  scales  to  provide  running 
totals  that  are  recorded  by  the  programs. 

The  land  manager  needs  to  know  the  location  of  prob- 
able fires.  The  transmission  of  this  information  must  be 
cost-effective  and  the  output  convenient  to  use.  We  have 
developed  a  method  for  storing  and  transmitting  lightning 
fire  probability  data  using  a  simple  printing  terminal  as  a 
user  interface  device.  The  area  occupied  by  a  character  on 
a  printed  page  of  text,  called  a  pixel,  is  made  to  corres- 
pond to  a  geographical  area  on  a  map.  An  array  of  printed 
characters  can  thus  be  used  with  transparent  overlays.  The 
overlays  "store"  permanent  information  such  as  lookouts, 
roads,  political  boundaries,  geographic  features,  equip- 
ment centers,  areas  of  responsibility,  or  other  desired  data. 
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The  use  of  trade,  firm,  or  corporation  names  in  this 
publication  is  for  the  information  and  convenience  of  the 
reader.  Such  use  does  not  constitute  an  official  endorse- 
ment or  approval  by  the  U.S.  Department  of  Agriculture  of 
any  product  or  sen/ice  to  the  exclusion  of  others  that  may 
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LLAFFS 

A  Lightning-Locating  and  Fire- 
Forecasting  System 

Don  Latham 


1.0  INTRODUCTION 

This  publication  contains  programs  and  documentation 
to  implement  an  algorithm  for  calculating  lightning  fire 
probability,  developed  at  the  Northern  Forest  Fire  Labor- 
atory, Intermountain  Forest  and  Range  Experiment  Station. 
The  calculation  of  lightning  fire  probability  is  based  on  a 
model  originally  developed  for  the  National  Fire-Danger 
Rating  System.  The  model  algorithm  estimates  the  prob- 
ability that  a  lightning  discharge  from  cloud  to  ground  will 
ignite  a  fire  in  fuels  at  the  ground  terminus  of  the  lightn- 
ing. Probability  is  estimated  using  variables  that  are 
measures  of  the  fuel  state  and  type,  rain,  and  lightning. 
Details  of  the  model  can  be  found  in  Fuquay  and  others 
(1979),  Utham  (1979),  and  Fuquay  (1980). 

The  lightning-locating  and  fire-forecasting  (LLAFFS) 
system  (figs.  1  and  2)  is  designed  to  combine  ignition 
probability  with  real-time  lightning  occurrence,  and  to 
transmit  the  results  to  the  land  manager.  The  lightning  oc- 
currence is  assumed  to  be  given  by  a  Lightning  Location 
and  Protection,  Inc.  (LLP)  Position  Analyzer  in  the  form  of 
a  time,  latitude,  and  longitude  estimate  for  each  lightning 
"event  in  the  area  covered  by  the  analyzer.  The  system  pro- 
grams use  weather  variables  and  the  state  of  the  fuels  for 
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the  place  the  lightning  hit  ground;  the  algorithm  is  used  to 
calculate  the  probability  that  the  discharge  started  a  fire. 
Probabilities  are  added  with  varying  time  scales  to  provide 
running  totals  that  are  recorded  by  the  programs. 

The  land  manager  needs  to  know  the  location  of  prob- 
able fires.  The  transmission  of  this  information  must  be 
cost-effective  and  the  output  convenient  to  use.  We  have 
developed  a  method  for  storing  and  transmitting  lightning 
fire  probability  data  using  a  simple  printing  terminal  as  a 
user  interface  device.  The  key  to  the  method  is  that  the 
area  occupied  by  a  character  on  a  printed  page  of  text, 
called  a  pixel,  can  be  made  to  correspond  to  a  geographi- 
cal area  on  a  map.  An  array  of  printed  characters  can  thus 
be  used  with  transparent  overlays.  The  overlays  "store" 
permanent  information  such  as  lookouts,  roads,  political 
boundaries,  geographic  features,  equipment  centers,  areas 
of  responsibility,  or  other  desired  data. 
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Figure  1.— Overall  functional  diagram  ot  the 
LLAFFS  system. 


Figure  2.— Data  flow,  programs,  and  files  of  the 
LLAFFS  system. 
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Figure  2  presents  a  data  flow  block  diagram  of  LLAFFS. 
In  use,  the  system  runs  as  follows: 

•  The  data  file  maker  programs  are  periodically  applied 
by  the  LLAFFS  (not  the  field  user)  operator  to  provide  cur- 
rent environmental  data, 

-  which,  along  with  real-time  lightning  location  data,  are 
turned  into  data  files  to  be  read  by  the  probability  calcula- 
tion program, 

•  whose  output  files  become  input  files  to  the 
"telephone  operator," 

-  which  a  field  user  calls  on  his/her  terminal  for  the  for- 
matted fire  probability  data. 

Our  implementation  of  the  LLAFFS  system  was  done  on 
a  minicomputer.  The  programs,  written  in  BASIC,  were 
structured  to  match  its  capability  for  handling  several  pro- 
grams and  several  users  at  the  same  time.  If  such  a 
machine  is  not  available,  the  programs  may  be  adapted  for 
use  with  a  smaller  machine,  such  as  some  of  the  common- 
ly available  microcomputers. 

1.1  COMPUTING  MACHINERY  REQUIRED 

The  minimum  machinery  necessary  to  run  LLAFFS 
would  be  a  microcomputer,  printer,  and  modem(s).  This 
equipment  will  enable  acquisition  of  AFFIRMS  data,  con- 
trol of  an  LLP  Position  Analyzer  (or  reception  of  data  from 
one),  and  output  of  printed  data  for  local  use  with  overlays 
Overlays  also  work  very  well  on  the  front  of  CRT  displays; 
even  the  printer  might  be  unnecessary  for  some  applica- 
tions (although  recommended).  More  than  one  modem  will 
be  required  for  dial-up  access.  Interrupt-driven  software  is 
necessary  if  a  multitasking/multiuser  operating  system  is 
not  available. 

The  following  sections  of  this  package  contain  technical 
information  for  implementation.  For  an  overview,  the 
reader  may  skip  to  section  2.5.1. 

2.0  INFORMATION  FLOW:  SYSTEM  BLOCK 
DIAGRAM 

Figure  2  presents  the  overall  data  flow  for  the  LLAFFS 
system.  The  data  inputs  consist  of  Lightning  Activity  Level 
(LAL),  fine  fuel  moisture  (FFM),  fine  fuel  bulk  density 
(RHOB),  upper  windspeed  (UWS),  and  lightning  locations 
(in  latitude  and  longitude)  from  the  position  analyzer.  Only 
the  lightning  locations  are  on-line  (real-time)  inputs;  the 
others  are  entered  manually  at  the  host  computer.  All  in- 
formation between  system  programs  is  passed  through 
files. 

2.0.1  Data  Inputs—Geographical 
Assignment 

The  implementation  of  LLAFFS  should  begin  by  choos- 
ing a  suitable  overlay  map  scale,  pixel  size,  and  map  limits 
(fig.  3).  The  map  limits  and  pixel  size  are  used  by  the  com- 
puter programs  only  in  PERIODIC.BAS  (see  2.4.1  and 
flowchart,  appendix  C).  The  program  SQRFILL.BAS  (see 
2.2.1)  uses  index  numbers  only  and  has  no  explicit  geog- 
raphy. A  guide  map,  or  the  overlay  master  map,  must  be 
used  to  decide  the  fuel  types  and  AFFIRMS  reporting  sta- 
tions to  be  used. 


NW 


NE 


A  QUADRANT 


A  POSSIBLE 
AFFIRMS  AREA 
COVERS  SEVERAL 
PIXELS 


SW 


A  PIXEL 


A  BLOCK  OF 
FOUR  PIXELS 
FOR  FUEL  TYPING 


BOUNDARY 
CORNERS 


SE 


Figure  3.— LLAFFS  system  geometry/ 
geography. 


2.1  DATA  INPUTS  DESCRIPTION 

The  ignition  model  requires  Lightning  Activity  Level  as 
one  of  its  inputs.  Fuquay  (1980)  explains  the  meaning  of 
this  number,  and  provides  simple  methods  of  estimation. 
Although  the  LAL  specifies  a  number  of  lightning  strokes, 
the  actual  number  is  used  in  computation.  Another  variable 
required  is  the  steering  windspeed  for  storms  in  the  area  of 
interest.  The  Weather  Service  standard  500-millibar  wind- 
speed  can  be  used  with  little  error.  The  fuel  bulk  density 
can  be  estimated  as  shown  in  Fuquay  and  others  (1979). 
This  variable  is  important  in  the  calculation;  be  sure  it  is  as 
accurate  as  possible.  If  none  of  the  fuel  models  described 
in  table  5  of  the  above  paper  fits  exactly,  however,  the 
closest  approximation  will  have  to  do.  In  general,  RHOB  for 
long-needled  conifers  will  be  4  pounds  per  cubic  foot, 
short-needled  conifers  6  to  8,  grass  2,  and  broadleaf 
species  4.  The  remaining  input  variable,  fine  fuel  moisture, 
is  available  from  AFFIRMS  or  is  calculated  according  to 
the  National  Fire-Danger  Rating  System.  If  a  different 
rating  system  is  in  use,  then  some  means  of  conversion  to 
the  NFDRS  1-hour  timelag  moisture  content  must  be 
applied. 

2.2  DATA  FILE  MAKERS 

The  data  file  maker  programs  are  used  to  set  up  the 
LLAFFS  system  and  update  some  of  its  inputs.  We  will 
discuss  the  programs  in  the  order  in  which  they  are  applied 
in  use.  The  flowcharts  and  program  printouts  can  be  found 
in  appendix  C.  Note  that  all  LLARFS  files  except 
SQRDATA.DTA  must  be  externally  created  at  the  initial  im- 
plementation of  the  system. 
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2.2.1  SQRFILLBAS 

This  program  creates  a  file  SQRDATA.DTA,  which  con- 
tains a  bulk  density  (RHOB)  and  AFFIRMS  station  code 
number  for  each  of  the  pixels.  The  pixels  are  grouped  into 
blocks  of  four  (fig.  3).  Each  block  of  four  has  an  AFFIRMS 
station  assigned  to  it.  Some  stations  will  be  assigned  to 
more  than  one  block.  The  stations  are  chosen  by  the  user 
to  be  most  representative  for  Lightning  Activity  Level  and 
fine  fuel  moisture  data.  This  program  will  probably  be  used 
very  seldom,  because  the  bulk  densities  for  the  pixels,  as 
well  as  AFFIRMS  stations,  will  not  change  appreciably 
over  a  season  and  probably  very  little  from  season  to 
season.  For  this  reason,  SQRFILL  is  not  a  very  "user 
friendly"  program.  Details  of  the  file  format  are  in  section 
2.3.2. 

2.2.2  AFFIRMS.BAS 

This  is  a  program  which  prompts  the  user  to  enter  LAL 
and  FFM  values  for  each  selected  AFFIRMS  reporting  sta- 
tion in  the  area  covered  by  the  maps.  The  number  of 
stations  will  vary  by  the  application  (fig.  3).  Our  application 
used  73  stations.  Several  pixels  on  a  map  may  use  FFM 
and  LAL  information  from  the  same  AFFIRMS  station 
(2.2.1).  The  file  AFFIRMS.082  is  updated  and  passed  to 
PERIODIC.BAS.  PERIODIC.BAS,  by  knowing  a  pixel's 
AFFIRMS  station  code  number,  assigns  the  appropriate 
values  of  FFM  and  LAL  to  a  pixel.  We  wished  to  keep  a  run- 
ning record  of  the  AFFIRMS  data.  Because  of  this,  the  file 
AFFIRMS.082  can  be  extended  each  time  AFFIRMS.BAS  is 
run.  It  is  unlikely  that  this  will  be  desired  in  most  applica- 
tions, so  we  have  provided  for  rewrite  or  append  functions 
in  this  program.  If  data  files  are  not  desired,  answer  "R" 
(rewrite)  at  the  "Rewrite  (R)  or  Append  (A)"  prompt.  Choice 
of  rewrite  mode  will  wipe  out  all  data  that  may  have  been 
filed  from  previous  append  mode  operations,  so  take  care 
here. 

2.2.3  UWU.BAS 

UWU.BAS  creates  a  file  called  UWU.082,  which  is  used 
when  PERIODIC.BAS  updates  the  upper  windspeed  vari- 
able. In  general,  the  upper  windspeed  value  will  be  the 
same  for  most  of  the  pixels.  The  version  of  the  program 
given  here  passes,  to  UWU.082,  the  current  values  of  the 
upper  windspeed  at  three  stations  and  the  date  and  time. 
The  actual  calculation  of  the  UWS  values  for  each  pixel  is 
done  in  PERIODIC.BAS.  As  with  AFFIRMS.BAS,  we  have 
an  append  or  rewrite  choice.  The  rewrite  choice  will  wipe 
out  any  data  left  from  previous  append  mode  operation. 
Take  care  when  answering  "Append  (A)  or  Rewrite  (R)"  if 
data  files  are  to  be  kept. 

2.2.4  MONITOR.BAS(SUPERMON.BAS) 

The  lightning  data  from  an  LLP  Position  Analyzer  is 
received  and  filed  by  this  program.  In  our  application, 
MONITOR  is  an  interactive  task  running  on  a  multitasking 
machine.  There  is  more  than  one  input  data  stream  for 
lightning  data  in  this  version  of  the  monitor  program,  as 
well  as  some  communication  with  other  computers.  Our 
program  is  included  in  the  package  for  completeness  and 
as  an  example  for  generating  the  buffer  files  in  the  correct 
format  for  PERIODIC. 


The  lightning  data  go  into  one  of  two  buffer  files,  as 
input  for  PERIODIC.BAS.  These  files,  BUFFR1.LTG  and 
BUFFR2.LTG  (2.3.4),  are  necessary  to  prevent  loss  of  data 
during  the  running  of  PERIODIC.  If  the  machine  running 
these  programs  is  not  multitasking,  then  a  different 
MONITOR  will  be  necessary  to  prevent  lost  lightning  data. 
One  possibility  is  an  interactive  program  to  take  advantage 
of  the  core  storage  in  the  Position  Analyzer.  Other 
schemes  depend  on  the  available  hardware. 

2.3  DATA  FILE  DESCRIPTIONS 

As  we  have  seen,  there  are  five  intermediate  data  files 
within  the  LLAFFS  system.  These  contain  the  updated 
values  of  the  input  variables.  The  files  are  inputs  to  the 
probability  predictor  and  output  file  maker  program, 
PERIODIC.BAS.  Depending  on  the  type  of  computer  being 
used  as  the  host,  the  data  files  may  be  updated  interac- 
tively at  any  time,  except  when  PERIODIC  is  reading  them 
(2.2.4, 1.1).  We  will  describe  the  file  contents  in  the  order 
shown  in  figure  2. 

2.3.1  SQRDATA.DTA 

This  file,  created  within  SQRFILLBAS,  contains  en- 
coded bulk  density  and  AFFIRMS  station  code  numbers 
for  each  block  of  a  24  by  24  array,  hence  its  length  of  576. 
The  number  of  blocks  depends  on  the  implementation. 
Each  record  contains  a  number  that  tells  PERIODIC.BAS 
which  AFFIRMS  data  station  and  RHOB  index  are  to  be  us- 
ed. Each  square  is  representative  of  a  block  of  four  pixels 
in  the  final  map.  Both  pieces  of  information  are  combined 
into  a  single  number  in  the  file.  The  form  of  this  number  is 
(station  number*100)-f- RHOB  index. 

2.3.2  AFFIRMS.082 

The  first  record  in  this  file  is  the  record  number  of  the 
last  record  written.  The  subsequent  data  items  are  packed 
into  nine  records;  they  contain  the  latest  data  produced  by 
AFFIRMS.BAS.  The  first  value  in  the  nine  records  is  the 
time  in  minutes  from  January  1  of  the  year  that  the 
AFFIRMS  data  was  measured.  Next  are  values  for  FFM  and 
LAL,  one  for  each  reporting  weather  station.  These  values 
are  coded  (multiplexed)  by  AFFIRMS.BAS  into  a  single 
number  for  each  station  for  efficient  packing.  The  form  of 
this  number  is  (LAL*  100)  +  FFM.  The  number  of  AFFIRMS 
stations  will  vary  according  to  the  application;  we  used  73. 
It  is  important  to  note  that  the  number  of  variables  is  not 
the  same  as  the  number  of  records  in  the  file;  there  are 
nine  records,  one  for  each  BASIC  "outf  ile"  statement.  If 
the  rewrite  mode  is  chosen,  the  file  is  wiped  clean;  any 
data  that  has  been  entered  in  append  mode  will  be  lost. 

2.3.3  UWU.082 

As  with  AFFIRMS.082,  this  file,  created  externally  at  im- 
plementation, can  either  be  appended  to  or  rewritten.  The 
number  of  records  depends  on  whether  the  append  mode 
or  the  overwrite  mode  is  used  in  UWU.BAS.  The  first  record 
contains  the  record  number  of  the  beginning  of  the  latest 
data  written.  Then  follows  a  record  with  the  calculated 
local  time  in  minutes  since  the  beginning  of  the  year  that 
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the  observations  were  taken  (as  in  AFFIRMS.082)  and  three 
wind  speeds.  A  different  time  code  scheme  can  be  used. 
The  appended  file  will  grow  continuously.  If  the  rewrite 
mode  is  chosen  at  any  time,  all  data  from  an  appended  file 
will  be  lost. 

2.3.4  BUFFR1.LTG  and  BUFFR2.LTG 

These  are  two  identical  files  containing  lightning  data  to 
be  read  by  PERIODIC.  They  are  identical  in  format,  and  ran- 
dom in  length.  They  must  be  initially  created  at  implemen- 
tation of  LLAFFS.  They  are  alternately  read  and  flushed  so 
that  the  maximum  size  of  either  would  be  in  the  neigh- 
borhood of  2,000  78-byte  records. 

2.4.1  PERIODIC.BAS— The  Main  Program 

PERIODIC.BAS  (fig.  4)  is  the  workhorse  for  LLAFFS.  This 
program,  running  as  a  background  task,  performs  the 
following  functions: 

(1)  takes  in  the  values  of  the  input  variables  (RHOB, 
FFM,  LAL,  UWS)  from  the  AFFIRMS.082,  SQRDATA.082, 
and  UWU.082, 

(2)  takes  in  lightning  data  from  BUFFR1.LTG  and 
BUFFR2.LTG, 

(3)  gets  the  appropriate  values  of  variables  and  light- 
ning for  each  pixel  from  the  files, 

(4)  calculates  the  probability  of  ignition  per  discharge 
in  each  pixel, 

(5)  updates  the  half-hour  (or  other  selected  interval) 
maps, 

(6)  updates  the  cumulative  (daily)  maps,  and 

(7)  generates  archival  files. 


GET  LIGHTNING  DATA 
FROM  BUFFER  FILES 


Figure  4.— PERIODIC.BAS  functional  diagram. 


Input  files  to  PERIODIC  are  discussed  in  section  2.3.  The 
output  files  (see  2.4.2)  are  TEMP.MAP,  DAILY.MAP,  and 
LTNG.082.  PERIODIC  also  uses  four  files  for  temporary 
storage  as  it  runs.  These  are  BUFR.MAP,  LTOTLDTA,  and 
HALFHR.CNT.  The  temporary  files  are  created  when  the 
system  is  implemented.  The  first  of  these  temporary  files 
is  used  in  merging  the  last  interval's  data  with  the 
DAILY.MAP  file.  The  second,  LTOTLDTA,  contains  total 
lightning  strikes  for  pixel  groups.  The  third,  HALFHR.CNT, 
contains  the  lightning  counts  by  pixel  for  the  last  half-hour 
time  period.  This  file  is  put  in  BUFR.MAP  and  a  new 
HALFHR.CNT  is  calculated.  The  fourth  file  contains  com- 
munications between  PERIODIC  and  MONITOR  to  tell 
MONITOR  which  lightning  location  buffer  file  (see  2.3.4)  to 
use. 

The  host  computer  must  have  a  real-time  clock  so  that 
PERIODIC  will  know  what  time  it  is.  The  update  interval 
and  the  beginning-time  of  the  24-hour  DAILY.MAP  file  are 
set  in  PERIODIC.  For  optimum  machine  use,  PERIODIC 
should  be  called  from  an  interrupt  routine  in  the  operating 
system,  instead  of  having  a  loop  as  our  version  does.  In- 
deed, if  the  system  is  to  be  installed  on  a  non-multitasking 
machine,  MONITOR  must  be  the  control  program,  running 
all  the  time,  and  contain  a  call  to  PERIODIC.  The  two  pro- 
grams can  call  each  other  using  a  chain  command  because 
all  information  is  passed  in  files.  A  single-user  machine 
may  lose  some  data  during  the  PERIODIC  running  time, 
unless  interrupt-driven  software  has  been  devised. 

2.4.2  PERIODIC.BAS  Output  Files 

PERIODIC.BAS  (figs.  2  and  4)  uses  three  output  files, 
TEMP.MAP,  DAILY.MAP,  and  LTNG.082.  The  files  are 
created  externally  when  LLAFFS  is  implemented.  The  last 
is  archival  and  will  not  be  discussed.  TEMP.MAP  contains 
the  latest  half-hour  counts  and  DAILY.MAP  the  cumulative 
count  for  the  current  day.  The  tteginning  of  the  day  is  set  in 
PERIODIC. 

The  structure  of  TEMP  and  DAILY  are  shown  in  figure  5. 
Each  record  after  the  first  five  contains  three  variables.  The 
first  is  the  row  and  column  of  the  pixel  to  which  the  data 
t)elong.  The  second  variable  is  the  number  of  lightning 
discharges  that  the  location  equipment  claims  has  struck 
the  ground  in  the  area  represented  by  the  pixel.  The  third  is 
the  probability  per  discharge  of  an  ignition  in  the  area 
represented  by  the  pixel.  The  product  of  probability  per 
discharge  and  the  number  of  discharges,  although  not 
exact,  js  used  for  the  probability  that  an  ignition  will  occur 
within  the  ground  area  represented  by  the  pixel. 

A  listing  and  flowchart  for  PERIODIC  are  in  appendix  C. 

2.5  SHOWTIME.BAS,  The  Output  Program 

SHOWTIME  (figs.  3  and  6)  is  designed  to  read  the  output 
files  DAILY.MAP  and  TEMP.MAP  and  format  them  into 
printer-compatible  form  for  output  to  the  user.  A  listing  and 
detailed  flowchart  of  SHOWTIME  are  included  in  appendix 
C. 

The  program  has  been  optimized  to  reduce  printing  time 
to  a  minimum.  Rows  in  the  output  map  having  no  data  are 
output  as  a  carriage  return-linefeed  pair.  The  row  is  trun- 
cated at  the  last  pixel  having  data  in  it.  Maps  with  no  data 
are  not  printed,  and  a  "no  data"  statement  is  output  in 
place  of  the  map. 
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LENGTH  =  L3  (1)  - 


LENGTH  =  L3  (2)  - 


LENGTH  =  L3  (3)  - 


LENGTH  =  L3  (4)  - 


STATUS 


BEGINTIME 


END  TIME 


FILE  LENGTHS 


FILE  LENGTHS 


^  L3  (1)+  4 
^  L3  (1)  +  5 

^  L3(2)+  L3(l)  +4 

'^'^  L3(2)+L3(l)  +  5 

L3  (3)  +  L3  (2) 
y  +  L3  (1)  +  4 

^  L3  (3)+  L3  (2)+  L3 
(1)+  5 


L3  (4)+  L3  (3) 
+  L3(2)+L3(l)+4 


FOUR  SUB-  FILES, 
ONE  PER  QUADRANT 


RECORD  NUMBER 

Figure  5.— DAILY.MAP  and  TEMP.MAP  file 
structure. 


DETERMINE  WHICH 
MAPS  ARE 
WANTED 


2nd  OR  GREATER 
PASS, SKIP 
HEADER 


GET  DATA  FROM 
TEMP.  MAP  & 
DAILY  .  MAP 


OUTPUT 
THE  MAPS 


YES 


2.5.1  OUTPUT  FORMAT 

Examples  of  SHOWTIME.BAS  output  are  shown  in 
figures  7  and  8.  In  these  examples,  each  pixel  represents 
an  area  on  the  ground  of  about  3  miles  by  3  miles.  There  is, 
of  course,  nothing  sacred  about  this  size— it  can  be 
changed  by  altering  the  programs  (see  2.0.1)  and  overlay 
maps  to  suit  the  occasion. 

The  lightning  density  map  (fig.  7)  is  straightforward.  An 
"X"  is  placed  as  an  index  mark  in  the  upper  and  lower  left 
corners  of  the  printout.  The  index  mark  is  keyed  to  the 
overlay.  Each  pixel  contains  a  number.  This  is  the  number 
of  strikes  the  location  system  says  have  hit  within  the  cor- 
responding overlay  area  on  the  ground.  Zeroes  are  sup- 
pressed, and  more  than  nine  strikes  in  a  pixel  is 
represented  by  an  "*".  The  time  period  is  specified  in  the 
text  accompanying  the  printed  map. 

The  fire  probability  map  (fig.  8)  is  almost  as  simple.  The 
numbers  do  not  indicate  the  number  of  fires  expected  in 
each  pixel.  The  numbers  are  codes  representing  the  prob- 
ability of  a  fire  being  in  the  pixel.  We  have  tentatively  set 
them  as  follows:  a  blank  is  zero  probability,  a  "1"  means 
probability  between  0  and  0.2  or  a  20  percent  chance  of  a 
fire,  a  '2"  is  between  0.2  and  0.4  or  between  20  and  40  per- 
cent, a  "3"  is  between  0.4  and  0.8  or  between  40  and  80  per- 
cent, and  a  "4"  means  that  there  is  a  probability  greater 
than  0.8  or  80  percent  that  there  is  a  fire  in  the  pixel.  This 
coding  enables  us  to  put  the  probabilities  in  a  single 
number  for  the  pixel.  Users  who  prefer  a  different  coding 
scheme  or  levels  are  welcome  to  do  so,  provided  the  actual 
calculation  of  the  probabilities  is  not  changed.  The  values 
are  set  in  a  subroutine  within  SHOWTIME. 

Information  on  the  printout  could  also  represent  other 
variables  related  to  an  area  on  the  ground,  if  the  variables 
can  t)e  represented  as  a  single  character.  The  generation  of 
extra  information  would  go  into  SHOWTIME.  A  possible 
use  might  be  a  simple  fire-danger  map,  or  a  rate-of-spread 
code.  To  do  this,  more  files  and  additions  to  PERIODIC 
would  have  to  be  created. 

2.5.2  Warning 

Research  indicates  that  the  accuracy  of  the  lightning 
ground  strike  points  is  not  routinely  better  than  the  3  miles 
we  have  used  for  our  pixel  size.  Indeed,  in  some  cases  the 
error  may  t)e  larger  than  twice  that  amount.  This  means 
that  the  lightning  locations  and  fire  probabilities  may  be 
"off"  by  at  least  one  pixel,  possibly  more,  in  any  direction. 
More  research  is  tjeing  done  on  accuracy. 


Figure  6.— SHOWTIME.BAS  functional 
diagram. 
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THIS   IS  THE     OUT H WEST  CUMULATIUE  LIGHTNING  MAP. 
THIS  MAP  CODERS  THE  PERIOD 
FROM    ;      08/11  11:00  (MDT) 

TO        ;      08/12  09i40  (MOT) 
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THERE  WERE     296     STRIKES  IN  THE  QUADRANT. 
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Figure  7.— A  typical  lightning  density  map  generated  by  SHOWTIME. 
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THIS   IS  THE  SOUTHWEST  CUMULATIVE  EXPECTED  EIRE  MAP, 
THIS  MAP   COVERS  THE  PERIOD 
FROM    :      08/11  11:00  (MDT) 

TO        ;      08/1  09:40  (MDT) 
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THERE  WERE     230     SQUARES  EXPECTING  FIRES. 

Figure  8.— A  typical  fire  probability  map  generated  by  SHOVIH'IME. 
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2.6  FIELD  USE 

The  field  user  (Forest  level)  will  need  a  set  of  instruc- 
tions for  use  of  LLAFFS.  The  instructions  we  used  for  our 
field  trial  are  included  as  appendix  A.  The  important 
elements  of  these  instructions  are: 

-  Dial-up  or  other  access  instructions  must  be  clear  and 
detailed;  a  lot  of  inquiries  and  "handholding"  will  be  saved 
by  overkill  in  the  instructions. 

-  The  map  areas  covered  by  the  printout  pixels  must  be 
clearly  stated  and  related  to  familiar  geography. 

■  Overlays  must  be  simple  and  easily  read.  More  than  one 
overlay  map  covering  the  same  area  is  better  than  a  single 
one  with  too  much  information  on  it. 

■  The  meanings  of  the  numbers  on  the  printouts  must  be 
clearly  stated. 

Overlays  for  our  application  are  not  included  in  this 
package  because  of  their  cost  and  provinciality.  We  have 
had  some  success  with  overlays  made  from  simple  hand- 
drawn  maps  such  as  that  of  figure  9.  These  are  copied  us- 
ing a  transparency  copier  such  as  those  used  for  making 
overhead  projections.  If  desired,  information  to  help  users 
with  this  procedure  might  be  given  as  part  of  the  field 
guide.  Transparencies  may  have  to  be  tailored  for  use  with 
varying  kinds  of  terminals,  because  terminal  print  sizes  are 
variable.  If  the  users  are  using  only  one  terminal  or  one 
kind  of  terminal,  this  tailoring  will  not  be  necessary. 


Appendix  B  contains  a  sample  user  run  of  the  LLAFFS 
output.  The  message  section  at  the  beginning  of  the  run  is 
generated  by  the  operating  system  of  our  host  computer,  if 
this  is  desired  in  other  implementations,  it  could  be  part  of 
SHOWTIME.  To  avoid  modifying  the  program  each  time  the 
message  is  to  be  changed,  put  the  message  in  a  file  and 
access  it  in  the  SHOWTIME  program. 

2.7  CONCLUSION 

The  programs  which  are  included  in  this  package  were 
all  developed  in  BASIC  for  use  on  a  Perkin-Elmer  3200 
machine.  Adaptation  to  other  computers  may  require  some 
program  rewriting.  In  particular,  file  handling  syntax  may 
be  considerably  different.  Smaller  machines  may  require 
more  intermediate  files  because  of  memory  limitations.  It 
may  also  be  desirable  to  automate  the  map  output  instead 
of  having  a  dial-in  system.  See  also  the  comments  in  sec- 
tions 1.1  and  2.2.4. 

NOTE:  Portions  of  the  programs  having  to  do  with  prob- 
ability calculation  must  not  be  changed  without  consulta- 
tion. To  make  such  changes  will  invalidate  the  predictions. 
If  this  warning  is  heeded,  the  system  presented  in  this 
package  will  improve  the  use  of  lightning  location  net- 
works for  fire  management. 


OVERLAY  N0.1  NORTHWEST 
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Figure  9.— A  sample  overlay  map. 
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APPENDIX  A 

SAMPLE  INSTRUCTIONS* 
Dialin  Lightning 

This  is  the  instruction  sheet  for  using  experinnental 
lightning  location  and  fire  probability  nnaps.  The  nnaps  are 
a  joint  effort  between  Aviation  and  Fire  Managennent  of 
Region  1  and  the  Intermountain  Forest  and  Range  Experi- 
ment Station,  Northern  Forest  Fire  Laboratory.  Our  objec- 
tive is  to  make  available  both  current  and  cumulative  infor- 
mation on  lightning  occurrence  and  probable  fire  starts. 
The  information  is  in  the  form  of  simple  printouts  designed 
to  be  used  with  a  Regional  overlay  map.  The  computer  that 
generates  the  printouts  is  located  at  the  Fire  Laboratory. 
The  Regional  Coordinator's  office  plans  to  alert  users 
through  the  Weather  teletype  network,  and  distribute  the 
maps  and  instructions  for  use.  The  printouts  can  be  ob- 
tained using  a  300-baud  printing  terminal,  such  as  an 
Execuport.  The  terminal  may  have  either  80  or  132  print  col- 
umns. The  printouts,  an  example  of  which  accompanies 
these  instructions,  are  designed  to  be  used  with  the 
overlay  maps,  also  supplied. 

The  Regional  overlay  map  has  been  divided  into  four 
quadrants:  NW,  NE,  SW,  and  SE.  The  center  of  the  quad- 
rants is  at  47  degrees  north  latitude  and  114  degrees  west 
longitude.  Each  quadrant  covers  two  degrees  in  latitude 
and  three  in  longitude: 

NORTHWEST:  47-49  N  and  1 14-1 1 7  W,  includes  part 
or  all  of  the  Kaniksu,  Kootenai,  Flat- 
head, Coeur  D'Alene,  Lolo,  and  St.  Joe 
Forests, 

NORTHEAST:  47-49  N  and  1 1 1-1 14  W,  includes  the 

Flathead,  Lewis  and  Clark,  Lolo,  and 

Helena  Forests, 
SOUTHWEST:  45-47  N  and  114-117  W,  includes  the 

St.  Joe,  Clearwater,  Lolo,  Nezperce,  and 

Bitterroot  Forests, 
SOUTHEAST:  45-47  N  and  111-114  W,  includes  the 

Lolo,  Helena,  Deerlodge,  Beaverhead, 

and  Gallatin  Forests. 
The  printouts  are  made  with  an  X  in  each  of  the  upper 
and  lower  left-hand  corners.  These  are  to  be  aligned  with 
the  leftmost  top  and  bottom  boundary  corners  of  the  ap- 
propriate quadrant  of  the  overlay  map.  For  example,  if  the 
quadrant  on  the  printout  is  the  NE,  the  top  X  goes  under 
49N,  114W  and  the  bottom  X  under  47N,  114W  and  soon. 
Those  of  you  with  map  experience  will  note  that  the 
registration  of  the  overlay  and  the  map  is  not  perfect.  That 
is  because  the  printouts  are  "flat  earth"  and  the  maps  are 
projections.  Expect  errors  of  at  least  one  pixel  (that  is 
jargon  for  one  character  space  on  the  printout  map)  in  all 
directions,  and  more  toward  the  top  of  the  upper  half  of  the 
overlay  and  the  bottom  of  the  lower  half. 


*Note:  These  sample  instructions  are  from  an  experi- 
ment and  are  for  user  guidelines  only.  Telephone  numbers 
are  now  different,  and  LLAFFS  is  no  longer  experimental. 


There  are  16  available  printout  maps,  4  for  each 
quadrant.  These  are: 
■  a  lightning  occurrence  map  updated  each  half-hour, 

-  a  cumulative  lightning  map,  beginning  each  day  at  0400 
hours, 

-  a  fire  probability  map  updated  each  half  hour,  and 

-  a  cumulative  fire  probability  map,  beginning  each  day 
at  0400  hours.  The  numbers  on  the  lightning  maps  repre- 
sent the  number  of  discharges  to  the  area  represented  by 
that  pixel  (one  character  space),  for  both  the  1-hour  and  the 
cumulative  maps. 

The  fire  probability  maps  have  been  scaled.  The  proba- 
bility of  fire  for  each  pixel  is  reduced  to  a  single  number 
from  zero  to  four.  The  zeroes  are  not  printed  for  better  clar- 
ity. These  characters  do  not  translate  directly  into  numbers 
of  fires.  That  is,  a  "1 "  in  a  pixel  does  not  mean  one  fire  in 
that  area,  rather  a  low  but  not  zero  probability  of  a  fire.  The 
same  is  true  for  a  "2",  and  so  on.  The  larger  the  numt>er, 
the  greater  the  chance  that  there  is  a  fire  near  the  area 
represented  by  the  pixel.  Remember  that  this  area  is  larger 
than  it  appears  because  of  the  accuracy  limitations  of  the 
equipment  and  the  overlay  display  technique. 

Now,  how  can  you  get  the  maps?  That  is  the  easy  part. 
First,  get  hold  of  a  300-baud  terminal  that  can  hook  up  to  a 
phone  line.  Then,  dial  329-3870,  commercial,  or  585-3870, 
FTS.  When  you  hear  the  tone,  stick  the  phone  in  the  termi- 
nal (if  it  is  that  kind).  Type  a  few  letters  and  hit  return;  the 
message  *SIGNON  REQUIRED  should  appear.  If  it  does 
not,  the  computer  is  down  or  the  terminal  is  not  making 
contact.  Try  once  more,  and  if  there  is  no  response,  the 
computer  is  probably  down. 

If  the  message  *SIGNON  REQUIRED,  followed  by  a  new 
line  beginning  with  an  *,  is  received,  type  in  SIGNON 
ID,125,LTNG,  then  return.  Do  not  forget  the  commas,  and 
do  not  leave  any  spaces  except  for  one  after  the  word 
SIGNON.  Put  the  forest  ID  initials  in  position  ID  or  some 
other  ID  letters  for  other  users.  Do  not  use  numb>ers.  ID 
may  be  from  one  to  four  letters  long.  The  computer  will  re- 
spond with  the  program  SHOWTIME,  which  t)egins  with 
the  date  and  time  and  should  proceed  as  shown  in  the  ex- 
amples we  have  provided.  Some  time  may  elapse  tjefore 
the  response,  but  a  minus  sign  (-)  will  appear  right  away 
to  show  that  you  are  hooked  up.  If  you  have  difficulties  and 
have  struggled  with  them  for  a  while,  call  us  at  585-3494, 
FTS,  or  329-3494,  commercial.  If  the  computer  is  down,  try 
later. 

Please  remember  that  this  is  an  experiment.  We  are  not 
staffed  for  a  7-day  week,  24-hour  day,  but  we  will  do  the 
best  we  can.  We  would  like  to  have  your  comments.  Either 
pass  them  through  the  Regional  dispatch  center  or  send 
them  directly  to  Don  Latham  at  the  Northern  Forest  Fire 
Laboratory.  We  are  especially  interested  in  documented 
comments  regarding  accuracy. 
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APPENDIX  B 

A  SAMPLE  FIELD  RUN  OF  LLAFFS 


^^SIGNON  DON,  i;^::;,L.TNG 
-OB/12/8;:^     10;  24;  32 

••■  LIGHTNING  LG  CAT  I  ON  AND  FIRE  FORECAST  SYSTEM  (LLAFFS) 

-NEUS    08/1 1 /82 

-ALL  SYSYTEMS  GO. 

-UHICH  QUADRANT  WOULD  YOU  LIKE  TO  SEE  ?      ( NW , NE , SW , SE ) 
>SU 


OPT I ONS 

LIGHTNING  MAPS 

1 .  LAST  HALF  HOUR 

2.  CUMULATIVE 
EXPECTED  FIRE  MAPS 

3.  LAST   HALF  HOUR 

4.  CUMULATIVE 
OTHERS 

5.  1   AND  2 

6 .  3  AND  4 

7 .  2  AND  4 
ENTER  AN  OPT  I  ON  NUMBER  ' 
>7 


11 


THIS   IS  THE  SOUTH WE:ST  CUMULATIVE  LIGHTNING  MAP, 
THIS   MAP   CDUERS  THE  PERIOD 
FROM    ;      0  8/1  1  1  1:  0  0  (MI)T) 

TO        ;      0  8/i;.?  09;  40  (MDT) 

■X-  x-  X-  -X  X  X  X  X  X-  X  X  X  X  X  X  X  X-  X  X  -X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  -X  X  X  X  X  X  X  X  x  ■>:■  X 


X 

1 


1  1 

1  1 

111        1  2 

13       11   21  2  6 

1  111  3 

1  1    1  1                                                                                    2  112 

1  21 

o 

1        1  2  1 

13     2  1  114 

131  3113116 

111  1  111 

12     12       111   312     1  1 
1  1  1113  1 

1  111  1121  1        1  1  1 

12  111  1  21 

ll'l        1    12  2      1  41 

1  11  11  1  111 

I  1  1  1    2 1  1  1 

1      1  1  1      2      1  1        1  1 

1  12  21111 

1    1    11  1  1      2     1    1    11  11  1 

1  122  1  111  11  2         11  1 

II  1  111  2     1    11  11 
1                                                11  2   1  1 

11  11     2  1 

1  21 

2  12   11  1 

11  11    1        1      2  1 

1  11,  1 

2  1  1 

XI  11  1 

THERE  WERE     296     STRIKES   IN  THE  QUADRANT. 
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THIS   IS  THE  SOUTHWEST  CUMULATIVE  EXPECTED  EIRE  MAP. 
THIS  MAP    COUERS  THE  PERIOD 
FROM    :      0  8/11  11:00  (MDT) 

TO        :      08/12         09:40  (MDT) 

•X-  X-  X  X  X  X  X  x  x  x  x  x  -x  -x  x-  -x  X  X-  X-  X  X  X  X  X  X  X  X  X-  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X-  X  X  X  X  x  x 
A 

1 


1 

1  1 


1    1 1 
1 1      1 1  1 1 
1 


I... 

I   1  o 


MORE  MAPS  ?      ( Y  OR  N) 
>Y 

UHICH  QUADRANT  ( NW , NE , SW , SE ) 
>SW 

OPTION  NUMBER 
>7 


1  1    1  1  1  1  1 2 

1     .  2\ 

1 

11  11 
12     1  1  112 

121  1111112 

111  1  111  2 

1 1      1 1        1 1 1    111      1  1  1 

11  111    1  1 

1  111  1  1  1  1  1        1  1  1 

1    1    1  1  1  1  1  1 

.  ■  111        111  11  11 

1  111  1  1  111  1 

1  1  1  1    1  1  1  1 

11  1  1      1      1  1        1  1 

1  1  1  1  1  1  1  1 

1  1  : 1  1  1    1    1  1  1  1       1 1  1 

1      .112  1  111  :  1       11  1 

11.  1      ■  1 1 1 1    1  1 1  1  1 

1  11  .11  1 

11  11    1  1 

1  1 1 

1         1 1  1 1  1 
11  1 1  1      1    1  1 

1  1    1  -  1 

1  1  1 

XI  11  1 

THERE  WERE     230     SQUARES  EXPECTING  FIRES, 

•X-  x  x-  X  x  -x  V:  x-  -x-  x  x  x  x-  x  x  x  x  x  X  X  x  x  x  x-  X  x  x  x  x  x-  x  x  x  x  X-  X    X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  x 


13 


THIS  IS  THE  SOUTHEAST  CUHULATiyE  LIGHTNING  MAP. 
THIS  MAP   COMERS  THE  PERIOD 
FROM    ;      08/1.  1  1  1:00  (MDT) 

TO        :      (iQ/tZ         09:40  (MDT) 

•X-  X-  X-  X-  X-  X-  X  X  *  X-  X  X  X  X  X  X  X  X  X  •!<■  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X-  X  X  X  X  X  X  x  x  x  x  x  x  x 

X  11  1     1  1 

1       3   1  11         22       1  1  1 

11  1  1  1  11 

11111  4         121  1 

1  11  21  11  1 

1      1    1  11   1    11  1 

1  12  11 

2  11   32  2     1  1  1   111  1 

1144  1  1  1 

1      1        1        1    1  1 
1  1  1  1112  1 

2  1112  1  12  221 1 

12  11  1221  '  21  1 

1  11  '3  •!      OOOl  1      "Zn'-Ji     -to  o 

i  i  1  i_  At..  ._.        .1.  i        %./C-L.        I  I—  t_ 

1  2  1  1 11  1  13  1  1 

22  1  1  112     1  1 

2  11  1  1  13211    1  1 
111111                                    11                         3  3.1 

2     1  1  11 

1  1  1      1  2 

31        11  1  1  1      1     2   1        1        1    11  1 

212     2  1  12  21    1  2  1 

1  22         1        11  11 

1  1 1 1 1  1 


1         3  1 


1  1 


1 

1  1 
1 

1 

1  1 


1  1 
1 


1 


THERE  WERE     313     STRIKES  IN  THE  QUADRANT 

•X  X-  -X  X-  X-  X  ■%  X  X-  X  -X  X  X  X  X-  -X  -X  X  X  X-  X  -X-  -X  X-  -X  X  X-  X  X  X  X  X  X  X  X  X  X  X  X  V:  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  x  x  x  x  x  x 
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THIS   18  THE  SOUTHEAST  CUMULATIVE  EXPECTED  FIRE  MAP. 
THIS  MAP   COUERS  THE  PERIOD 
FROM    :      08/11  11:00  (MDT) 

TO        ;      08/12         09:40  (MDT) 

■X-  X-  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  -X  X  -X  X  X  X  X  X  X  X  X  X  X  X  X  X  -X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X 

X  11  1     1  1 

1       2   1  11111  1  1 

1 1  1  1  1    1 1 

11  111  1       1    11  1 

1  11  11  1    1  1 

1    1  1     1 1  1  1 1  1 
1    "  1        11  1 

11111  2     i  1  11111 

nil  1  1  1 

1    1      111  1 

I  1  1  1 1 1  1  1 

I  11        1  1  1  11  nil 

I I  1 1         1 1 1 1  1 1  1 

1  11  1  1  1 1 1 1  in  1  1      1  1 

1  11       1 1 1  1  1  1        1  1 

n  1  1  1 1 1    1  1 

I  1  1  1  1  11211    1  1 

II  1    in  ,  1       1  1        2  1 

II  1  1  1 

1  1  112 

II  11  1        ,  1  1    1    1  1      1      1  1 1  1 

II I  1  1  12  211  2  1 

1  11  inn 


.1 


1 1 1 1  1 


1  1       1  1 


1  1 


1 

1 


1  1 

1 


THERE  WERE     243     SQUARES  EXPECTING  FIRES, 

•X  X  X  ■■;<■  X  X  X  X  ■;<■  X  X  X  X  X-  X  X  X  X  X  X  X  X  X  X  X  X  -X  X  X  X  X  X  X  X  X  X  X  X  X  X  -X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  x  x  x 
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APPENDIX  C 

FLOW  CHARTS  AND  PROGRAMS 


AFFIRMS  DATAUPDATER 


Q  START  } 


V 


INPUT  MEASUREMENT  DATE 
M,  D,  H 


1 


T  =  (M  -  1)  44640  +  1440D  +  60  H 

DATA-  ENTRY  LOOP 


INPUT  LAL.  FMl  FROM  EACH  OF  23 
FIRE  WEATHER  STATIONS 
SET  Ad)  =  LAL  *  100  + FMl 
(121,2  73) 


 !  

APPEND  T,  A  (1),  A  (2),  ,  A  (73)  TO  BOl  .  082 


(    STOP  ) 
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SQRFIL  .  BAS 


(   ENTER  ) 


INPUT  FUEL  TYPE  INDEX, 
ENCODE 

OUTPUT  TO  FILE 
NEXT  I  •■' 

i 

CLOSE  FILE 


PRINT 
FINISHED  "  MESSAGE 


.17 


UWU  .  BAS 


(  ENTER  ) 
OPEN  UWU  .082 


I 


GET  RECORD  COUNT 
FROM  RECORD  0 


GET  LAST  RECORD 
INPUT-  INFILE 


I 


PRINT  IT 

PROMPT  AND  SET 
INPUT 

0 


RECORD 
COUNT 
Zl  =  0 


PRINT 
WARNING 
MESSAGE 


ENTER  WIND  SPEEDS 
AND  TIME 


CONVERT  TIME 
TO  MINUTES  FROM 
BEGINNING  OF  THE  YEAR 


I 


WRITE  NEW  DATA 
TO  UWU.  082 


I 


WRITE  NEW  RECORD 
COUNT  TO  FILE 


CLOSE  FILE 
PRINT  END  MESSAGE 
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SUPERMON.  BAS 


('  ENTER  ^ 

_x_ 


SET  CONSTANTS 
INITIALIZE  VARIABLES 
PRINT  RE-ENTER  MESSAGE 


I 


OPEN  HALF  HR.  COUNT 
OPEN  VERBOSE.BOl 
OPEN  BUFFRl .  LTNG. 


I 


GET  LINE  OF  INPUT 
FROM  MESSAGE  HANDLER 


OUR  HANDLER 


I 


MESSAGE  TYPE  (T0=  ?) 


I 


OTHER  LIGHTNING 
HANDLER 


I 


OTHER 


AFFIRMS 
HANDLER 


UPPER  WIND 

HANDLER 

GET  CURRENT  PERIODIC 
COUNT  AS  WRITTEN  BY 
PERIODIC  .  BAS  FROM 
RECORD  OOF  HALF  HR. 
COUNT 


CLOSE  CURRENT  BUFFER  FILE 
LAST  COUNT  =  CURRENT  COUNT 
OPEN  "  OTHER  "  BUFFER  FILE 
CHANGE  RECORD  1  OF  HALF  HR. 
COUNT  TO  CURRENT  COUNT  OF 
RECORD  0 
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SUPERMON.  BAS 
(Page  2) 


OUR  HANDLER 


WRITES   INPUT  ASCI  I  LINE,  PA  PROGRAM  0  OUTPUT 
WITH  MONTH  AND  DAY  TACKEDON, 
TO  THE  CURRENT  BUFFER  FILE 


OTHER  HANDLER 


SAME  AS  ABOVE,  BUT  WRITES  TO  VERBOSE  .  BOI  FILE 


AFFIRMS 

 ^ 

HANDLER 

PASSES  AFFIRMS  DATA  AROUND  OUR 
SMALL  COMPUTER  NETWORK 


UPPER  WIND 

 »> 

HANDLER 

PASSES  UWSPEED  DATA  AS  ABOVE 


OUR  NETWORK 


LOCAL  LTNG. 


2-  SYSTEM 
BOISE  DATA 


COLOR 

COMPUTER 

DISPLAY 


COMPUCORP  625 
DATA  HANDLER/ 
MASSAGER  & 
ARCHIVES 


SUPERBRAIN  ARCHIVER/ 
BACKUP  FORMAHER 


PERK  IN  -  ELMER  3200 
ARCHIVER/  FORMATTER 


TO  USERS 
VIA  DIAL 


REGION  1 

BLM-  STYLE  READOUT 
H/.  9845 
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PERIODIC  .  BAS 

(Page  1) 


(  ENTRY  ") 


INITIALIZE, 
OPEN 
HALFHR.  CNT.  , 
SET  COUNTS  TO  1 


GET  CURRENT 
TIME  IN  MINUTES, 
FROM 
START  OF  YEAR 


I 


BEGINTIME 
CURRENT  TIME 


STALL  LOOP 


I 


GET 

CURRENT  TIME 


FLOP  RECORD 

0  IN 
HALF  HR.  CNT. 


I 


INITIALIZE: 

MAP  ARRAY 
BAD  RECORD 
EOF  FLAG 


YES 


c 


NEXT  PAGE 


i 


GET  RECORD  2 
1  IN  HALF  HR.  CNT. 


CLOSE 
HALF  HR.  CNT. 


I 


LAST  REC.  1 
=  CURRENT  REC.  1 


I 


SET 

NO  NEW  WEATHER  " 
FLAG  =  TRUE 


I 


OPEN  UWU  .  082 
READ  RECORD  COUNT 


RESET  "NO  NEW 
WEATHER  " 
FLAG  =  FALSE 


I 


OLD  REC.  COUNT 
=  CURRENT  REC. 


I 


GET  LATEST  UWS 
&  UPDATE 


> 
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PERIODIC  .  BAS 
(Page  2) 


f  FROM  PAGE l) 


CLOSE  UWU, 
OPEN  AFFIRMS 


GET  CURRENT 
RECORD  COUNT 


YES  / :URRENT 
=  OLD  ? 


RESET  "  NO  NEW 
WEATHER  FLAG  " 


I 


OLD  RECORD  COUNT  = 
NEW  RECORD  COUNT 


I 


GET  AFFIRMS  DATA 


I 


CLOSE  AFFIRMS 
.082 


READ  SQRDATA 
DTA 


SUBROUTINE 
(Page  4) 


I 


FIGURE  P  (I) 
FOR  EACH  PIXEL 


G> 


OPEN  BUFFER 
FILE  TO  READ 


CD 


OPEN  LTNG.  082 
FOR  WRITE 

\  J 

1 


GET  RECORD 
FROM  BUFFRX 


EOF  =  TRUE 


EOF  \  YES 
=  TRUE  ? 


c 


GO  MAKE  MAPS 


) 
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EXTRACT  MO. ,  DAY, 
PA  FLASH  NUMBER 


EXTRACT  HR. ,  Ml N. ,  LAT. , 
LONG. ,  KIND,  STRENGTHS. 
MULTIPLICITIES 


END  OF  MAP  PERIOD 
=  FLASH  TIME 


I 


WRITE  DATA 
TO  LTNG.  082 


NO 


FIND  THE  RIGHT  PIXEL 
IN  MAP  ARRAY 


I 


PUT  STROKE 
IN  MAP  ARRAY 


PERIODIC.  BAS 

(Page  3) 


•0 


PREVIOUS  FLASH  # 
=  PA  FLASH  # 


9 


CLOSE  BUFFRX 
AND  LTNG.  082 


iz: 


OPEN  BUFR.  MAP 
AND  DAILY.MAP 


I 


MERGE  DAILY.  MAP 
WITH  MAP  ARRAY 


I 


RESULT  INTO 
BUFR.  MAP 


GET  USER  COUNT 
RECORD  0  OF 
DAILY  .  MAP 


NO 


SET  USER  COUNT  =  -1 


WRITE  NEW 
DAILY.  MAP 


I 


DELETE  AND  RECREATE 
BUFR.  MAP 


I 


SET  USER  COUNT  =  0 


CLOSE  DAILY  .  MAP 


d) 
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PERIODIC.  BAS 
(Page  4) 


SET  USER  COUNT 
=  -  1 


i 

WRITE  NEW  TEMP. 
MAP  FROM  ARRAYS 


 1__ 

REOPEN  HALF  HR. 
COUNT 


0 


24 


SHOWTIIVIE.  BAS 
(Page  1) 


(  ENTER  ) 
SET  CONSTANTS 


i 


PROMPT  FOR 
QUADRANT 


I 


I  =  1 


□ 


1  =  1+1 


NO 


!># 
^OF  POSSIBLE^ 
QUADS  ? 


Q0=  I 


PAGE  2  ^ 


25 


SHOWTIME.  BAS 
(Page  2) 


ENCODE  THE 
OPTION  SEQUENCE 
.  02  =03  (02-  4) 


04=  1 
SET  MAP  PLOT. 
TO  LOCATIONS 


SET  MAP  PLOT  TO 
EXPECTED  FIRES 
04=  2 


I 


SET  01  FOR 
HALF  HR.  OR 
CUMULATIVE 


RUNTIME 
ERROR  CHECK 

OK 

f 

Q  PAGE  3  ^ 


NOT 
~0K~ 
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SHOWTIME.  BAS 
(Page  3) 


C 


FROM  PAGE  2 


I 


OPEN  TEMP.  MAP  OR 
DAILY.  MAP 
07  $(01) 


 I  

USER  COUNT 
=  RECORD  0 


INCREMENT  USER 
COUNT  BY  1 
S  =  S  +  1 


WRITE  TO  FILE 
RECORD  0 

GET  BEGIN  AND 
END  TIMES 

i 

GET  LENGTH  OF  MAPS 

i 

SET  DEFAULT 
FIRST  RECORD 
FLAG  =  4    R  9  =  4 
(PHYSICAL  RECORD  5) 


(^TO  P  AGE  4 
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SHOWTIME.  BAS 
(Page  4) 


YES 


I  =  1 
SET  COUNT 


SET  READ  - 
RECORD  FLAG, 
R9=  R9  +  L3  (i; 


I 


1=1  +  1 


NO 


READ  (FIRST  READ 
RECORD  -  1) 
TOPOSITION  FILE 


PRINT  FORM  FEED,  MAP  TYPE, 
MAP  PLOT  TYPE, 
COVERAGE  PERIOD 


TO  PAGE  5  3 
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SHOWTIME.  BAS 
(Page  5) 


*  NOTE :  If  a  map  has  only  two  records, 
they  are  the  corner  symbols 
and  the  map  is  empty  . 


PRINT  NO  STRIKES 
MESSAGE 


Rl=  1 
P2=  1 
K8=  0 


BEGINNING  MAP  ROW 
LAST  MAP  COLUMN  WRITTEN  +  1 
COUNTER  FOR  LIGHTNING  OR 
PREDICTED  FIRES 


I 


I  =  1 


GET  COUNT  — ^  K9 
LOCATION  ~  L9 
PROBABILITY  — ►  P9 


-0 


DECODE  ROW  (R2) 
AND  COLUMN  (C2) 


I 


R2=  INT  (L9/  100) 
C2  =  L9  -R2  *  100 


I 


c 


TO  PAGE  6 
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SHOWTIME.  BAS 
(Page  6  ) 


CALCULATE 
PRED.  FIRE  COUNT 
P0=  K9*  P9 


PROB 
MAP 


1 


LTNG.  MAP 


P$=  "  X" 
(A  CORNER) 

P$=  STR.  $(K) 
#  OF  STRIKES 

P$  =     H   *  M 

1 

1 

K8=  K8  +  K9 
INCREMENT  COUNT 
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SHOWTIME.  BAS 
(Page  7) 


C 


FROM  PAGE  6 


D 


NO 


YES 


i 


J  =  P2 
WRITE  PTR 
=  MAP  COL 


FILL  LINE  BUFFER 
WITH  BLANKS  FROM 
MAP  COL  TO 
LIGHTNING  COL 


I 


FOR  J  =  P2-  C2  -  1 
L$(J)  =  "  " 
NEXT  J 


L  $  (J)  =  P  $ 
PLOT  STRING 
PUT  IN  LINE  BUFFER 


I 


INCREMENT 

MAP  COLUMN 

P2  = 

J  +  1 

 k> 

-(to  PAGE  S)^ 


YES 


K  =  1 

E 


OUTPUT  K  th 

CHARACTER 

FROM 

LINE  BUFFER 

+ 

K  =  K  +  1 

NO 

Y    K  >P2\ 

YES 


INC  MAP  ROW 

Rl =  Rl  +  1 
RESET  MAP  COL 
P2=  1  1st  CHAR. 
OF  BUFFER  BLANK 

L  $(1)  =  "  " 


PRINT  ERROR  MESSAGE 


1  =  L  (Q  0)  +  1 

1  
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SHOWTIME.  BAS 

(Page  8) 


PRINT  LAST  BUFFERED 
LINE  FROM  COL  ITO 
LAST  COL  WRITTEN 
FOR  K  =  1  TO  R2  -  1 

j  ON  (7)  L$(K)  ; 
NEXT  K 


 t 

PRINT  BOTTOM  HEADER 


h — -€) 

DECREMENT 
USER      (IN  FILE) 
COUNT     (OUT  FILE) 


SET>  2nd  PASS  FLAGS 
P  =  15    PI  =10 
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nnnnttunnuntinnnnnnnnnnnuntinununnntinnnnnnnunnnnHnnunnntitfnnnnnnnnniinn 

THIS   IS  THE   SET  OF  PROGRAMS   FOR   LLAFFS  WRITTEN  ON/FOR  THE  PERKIM- 
ELMFR   3200   IM  BASIC.   THE   ABRRE V T AT  I ON    ;    IS  USED  FOR  PRINT   AT  TIRES 
IN  THESE  PROGRAMS.   ALL  OTHER  FUNCTIONS  ARE  SPELLED  CUT. 

10     REM   PROGRAM   SQRFIL.BaS   --  CREATES  AND  FILLS  THE  FILE  SQRDATa.DTA 
20     REM     THE  FILE   CAN  BE  GIVEN   A  NAME   OTHER   THAN  •'SQRDATA.DTA' 
30     DIM  F$(12) »E$(5) 

50  REM  PROMPT  THE  USER 

60  REM 

70  ONERROR   GOTO  80 

aO  PRINT"NUMBER   OF   SQUARES   YOUR   AREA    IS   SECTIONED   INTO  ?" 

90  INPUT  SO 

100  ONERROR   GOTO  110 

110  PRINT"NAME  FOR  THE  DATA  FILE  7      (TYPE   'D'   FOR  OFF AULT= ♦ SQRDAT A . OT A •  )  " 

120  INPUT  F$ 

130  IF   F$="D"   THEN  F$="SQRDATA . DTA" 

150  REM     CREATE     AND  OPEN  FILE 
160  REM 

170  ONERROR  GOTO  210 

180  CREATE  F$»2,'+ 

190  OPEN  F$,l,l 

200  GOTO  350  C 

210  ES  =  FRR$ ( 0 ) ;E  =  VAL {E$  ) 

?20   IF   E=10   THEN    ;"ILLEGAL  FILE   NAME.":GOTO  100 

230   IF  E022  THEN    ;  "ERR  NO.";    E    ;"AT  LINE  NO";  ERL(0):STOP 

2'+0  PRINT"FILE   ";   F$    ;"  ALREADY  EXISTS." 

250  PRINT"TO  DELETE   ";   F$    ;        THEN     RECREATE     IT,   TYPE  1" 

2dO   PRINT"T0  STOP  TYPE   0,    TO   TRY   A   NEW  NAME.    TYPE  2" 

270   ONERROR   GOTO  2^0 

230   INPUT  01 

290   IF   01=0   THEN  STOP 

300   IF  01=1  THEN  DELETE  F$:GOTO  170 

310   GOTO  100 

320    REM  *********************************:tr*:t***3tc:<c************* 

330  REM     FILL  THE  FILE 

3^+0  REM 

350  FOR   1=1  TO  SO 

360  ONERROR   GOTO  370 

370  PRTNT"SOUARE   NO.";    I;"WEATHER   STATION  NBR.=  " 

33  0  INPUT  WO 

390  ONERROR  GOTO  400 

400  PRINT"S0R  NO.";    I    ; "FUEL   TYPE  INDEa.=" 

J+IO  INPUT  FO 

420  W0=W0*100+F0 
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FILLED   AND  CLOSED 


430 
440 
450 
460 
470 
^  ■ 

AFFlRf^S   UPDATING  PROGRA^^ 
THI,9   PPOGRAF!   USES   THE   FILE   AFFlRr^S.n82    (OR   OTHER  YEAR) 
WHICH   ^UST   BE   EXTERMALLY   CHEATED   AT    I  MPLE^^EMT  AT  I  ON . 


OUTFILE  OfM(l)W0 
NlXTI 
CLOSEl 
PRirJT  F$  ; 

Er^D 


10 
20 
30 
40 

50 
60 
70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

290 

29  0 

300 

310 

320 

330 

340 

350 

36  0 

37  0 
330 


YYY   FILE  UPDATER 


YEAR   OF  DATA    (2   D I G I TS ) " : I NPUT   ON ( 5 ) 


0!\](5)SO$ 


RET"   AFFIRMS. BAS   --  AFFIRMS 
CLOSESrOPEN  "C0^':"^5fQ 
Dli^   A  (  73  )  1  S0$  (  1 )  »  Y$  (  4  )  ,  F$  (  12  ) 
PRT^'T   ON  (  5  )  "PROGRAl^i   AFF  IRMS//EMTER 
F$  =  "AFFIHr'!S,  0"+YS 

CLOSEltOPEIV   F$,l,o:irjFILE  orj(l,0)2»Zl 
PRINT   ON  (  5  )  "REWRITE    (R)      OR      APPEND(A)  ?":lrjPi!T 
IF   SO$="R"   THETi   Z=0   ELSE   IF   SOJ<>"A"   GOTO  70 
IF   Z<1   THEN     PRINT  ON  ( 5  ) 'iWARNING  IN   REWRlTF  r'!ODE." 

PRINT   0N(5)  "ENTER   0   TO   STOP    ,    ANY   OTHER   NUMyE^?   TO  CONTI 
ONFRROR   GOTO  100 
INPUT  0N(5)SC 

IF  so=o  Then  stop 

PRINT   ON (5) "ENTER 
T=(W-1)*446  4  0+0+1440+H*60 
ONFRROR   GOTO   210  , 
FOR    1=1   TO  73 

PRINT   0N(5)"ENTER   STATION  NO. 
PRINT   ON ( 5 ) "LAL=" : INPUT  0N{5)L 
PRINT   ON  (  5  )  "Fr'!l  =  "  :  INPUT  0N(5)F 
PRINT   0N(5)ChR$(7)  ;"ERROR" 
A  (  I  )=L*100  +  F 
NEXTI 

ONERRCR   GOTO  370 

HEV.    (*   APPEND   NEW   DATA   TO   END   OF   FIl  E   * )' 

OUTFILE  0N(ltZ+l)T»A(l),A(2)iA(3),A(4),A(5)»A(6).A(7),A(e) 

0N(l)A(9),A(l0)tA(ll),A(12),A(l3),A(lU),A(15),A(16), 


NUE 


K^OtDAYtHR   OF   N"EAS.    (1   OR   2      T  G I TS  )  "  ;  I NPUT  CN(5)MiD.H 


GOTO 
GOTO  180 


22  0 


OUTFILE 

OUTFILE  ON(1)A(10),A(19),A(20) 
OUTFILE  ON  (  1  )  A ( 27 )  ,  A  (  2P  )  t A ( 29 ) 
CilTFlLE  or;  (  1  )  A  (  36  )  ,  A  (  37  )  ,  A  (  36  ) 
OUTFILE  CN{1)A(45)  f A(46)  tAf47) 
OUTFILE  ON ( 1 ) A ( 54 )  «  A ( 55  )  ,  A ( 56 ) 
OUTFILE  ON (1)A(63)«A(64),A(65) 
OUTFILE  ON ( 1  )  A ( 72 )  » A ( 73 ) 
Z=7+9 : OUTFILE  ON(1«0)7,Z1 
CLOSEl :  PRINT  ON (5) "DATE  "  ;  T 
PRINT  CN(5)"ERR0R"  ;  ERRi(165) 
END 


A(21)iA(22),A(''3),A(24),A(25) 
A(30).A(31),AC»2),A{33),A{34) 
A(39),A(40),A(41),A(42),A(43) 
A(48)iAf49)»'\('=0),A(51).A(52) 
A ( 57 )  , A ( 58  )  1  A ( S9  )  »  A ( 60 )  , A ( 61  ) 
A(66)»Af67),A{f^fi).A{69),A(70) 


A(  17) 
.A (26  ) 
, A(35) 
»  A ( 44  ) 
.  A ( 53 ) 
»  A ( 62 ) 
f A(71) 


APPENDED 
LINE"  ; 


TO  FILE 
ERL ( 0 ) 


F$:STOP 
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UPPER  WIND  SPEED  UPDATE  PROGRAM 

THIS  PROGRAM  USES  THE  FILE   UwU.0fl2    (Or  OTHER  YEAR) 
WHICH  MUST  BE   EXTERNALLY   CREATED   AT  IMPLEMENTATION. 

10  REM  UWU.BAS         UPPER   WIND  SPEED   FILE    (UWU.YYY)  UPDATER 

20  CLOSE5:0PEN"C0N: " ,5, 0 

■^0  DI^l  W(^)»G(3.3),C(3),S(3) 

<+0  DIM  Y$(^)  »S0$(1)  «F$(12)  tCSf  12) 

50  PRINT  ON { 5 ) "PROGRAM  UWU" 

60  PRINT  0N(5)"YEAR   PRESENTLY  SET  FOR   l98?"  :  Y$="*<2" 

70  F$="UWU. 0"+YS 

80  CLOSE1:OPENF$,1,0:INFILE  ON(l,n)Zl 

90  PRINT   ON { 5 ) "REWRITE    (R)      OR      APPEND    (A)    ?  " 

100  INPUT  ON(5)SO$ 

110  IF  S0$="R"   THEN  21=0   ELSE   IF   SO$<>"A"   GOTO  90 

120  IF   2K1   THEN  PRINT  ON  ( S )  "WARNING  IN  REWRITE  MODE,":    GOTO  150 

130  INFILE  ON(ltZl)U«H(l) fH(2) .H(3) 

1^+0  PRINT"LAST  UWU  RECORD   IS   "    ;    U    ;    H(l)    J    H(2)    ?  H(3) 

150  PRINT"ENTER   0   TO  STOP,   ANY  NUMBER  TO  RESUp^E  UmU-RUN" 

160  INPUT  0N(5)I 

170  IF   1=0  THEN  STOP 

180  PRINT  0N(5)"ENTER   500MB   WIND  SPD   FOR   BOISE":lNPUT  0N(5)W(1) 

190  PRINT  0N(5)"ENTER   500MB  WIND  SPD  FOR  SPOK ANE " ! I NPUT  0N(5)W(2) 

200  PRINT   CN(5)"ENTEK   500MB   WIND  SPD  FOR   GRTFALLS" : INPUT  0N(5)W(3) 

210  PRINT  0N(5)"ENTER   MO.DAYtHR   OF  MEAS.    (1    OR   2  nIGlTS)" 

220  INPUT  0N(5)M,D,H 

230  T=(M-1  )*446'+0  +  D*m'+0  +  H*60 

2*40  OUTFILE  0N(  It21  +  1)T,W(1 )  ,W(2)  ,U(3) 

250  Z1=Z1+1 :0UTFILE  ON(liO)Zl 

260  CLOSEl:    PRINT  ON ( 5 ) T ; W ( 1 ) ? W ( 2 ) : W ( 3 ) ; " APPEMDFD   TO   ";F$;"   FOR  ";M;D;H 

270  END 

MONITOR  PROGRAM 

MONITOR  USES  SEVERAL   FILES.   THESE  ARE  SPECIFIC  TO 
THE   APPLICATION*   EXCEPT  FOR   BUFFrI.LTG   AND  BUFFR2.LTG, 
THESE  TWO  ARE  REQUIRED  FOR  PER lOD IC . B AS .   ALL  FILES  IN 
MONITOR  MUST  BE  EXTERNALLY  CREATED  AT  IMPLEMENTATION. 

10  CLOSE  7:0PEN   "CON:", 7.0 

20  REM   *****     PROGRAM  SUPERMON 

30  DIM  L$(ao)»Kl$(l),BO$(80),F$(l2),Y${2),Ml$(2),Dl$(2),X$(l)»E$(5) 

i+0  DIM     A9$(l) ,N9$(1) »Q2$(1) ,C1$(1  ) »C2$(1)  ,C3$(1) .CH$(1) ,C5$(1) 

50  DIM     B$(10,2) , A(73) 

60  REM 

70  02$  =  CHR$(ia)  :C1$  =  CHR$(1  )  :C2$  =  ChR$(2)  :C3$  =  CHR$(3)  :C'+$=CHR$  ) 

80  C5$=CHR$(5) :a9$=chr$(6) : n9$=chrs ( 21 ) :f=i:ui=i 

90  ii=i:i2=2:si=i 

100  B$(1)="BUFFR1,LTG":B$(2)="BUFFr2.LTG" 

110  PRINT  0N(7)D2$;  C2$ 
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120  ONERROR   GOTO  710 

130  RFP' 

li+0  OPEN   "HALFHR  .CNT"        0    t.  . 

150  OPEN   "VERBOSE. BOI"  .2.»  1  :OPEN   "  BllFFRl .  LTG  "  « 1  . 1 
!60        GOTO  250 

170  REr'  ***   CHECK  FOR     END   OF   HALF   HOUR   PERIOD  ******:******«***:^*** 

180  INFILE  ON(i+«0)S0 

190  IF     S0=S1     THEN  RETURN 

200  CLOSE  ui :f=f+si:si=so 

210  OPEN  B$(F) ,Ulil 

220  OUTFILE  0N(4,1)S1 

2'50  RETURN 

2'+0  REri  *****   WAIT  FOR      INPUT     0N(7)    FROM  COMPUCOPP 

250  LTNPUT  0N(7)B0$ 

260  X$  =  BO$(  11,11)  :L$  =  B0$(I2,  )  :to  =  a?;C(x$) 

270  ONTO   GOTO   3  0  0  ,  33 O  ,  ^+7 O  ,  36 0 

280  PRINT  0N(7)D2$;    C5$ ; "PE I  INVALID   COMMAND":    GOTO  250 

290  REM   OUR   LTNG   INFO  HANDLER   

300  OUTFILE  0N(U1)L$ 

305  GCSUB  180 

310  GOTO  250 

320  REM   BOISE  LTNG   INFO   HANDI  ER   

330  OUTFILE  0N(2)L$ 

3^0  GOTO  250 

350  REM    UPPER   WIND  HANDLER   

360  GOSUB  680 

370  F$="UWU,0"+Y$:CLOSE   5:nPEN   F$.5»0:INFILE  ON{5,0)Zt21 

330  IF  Z=Z1   THEN  PRINT  0N(7)N9$:    GOTO  250 

390  PRINT  0N(7)A9$ 

UOO  Z1=Z1+1 

410  INFILE  0N(5»Z1)A(1) f A(2) ,A(3) 

420  FOR   I  =  1T03:PRINT  ON ( 7 ) A ( I ) : NEXT  I 

430  INPUT  0N(7)Kl$:      IF  Kl?<>A9$   GOTO   420  ' 

440  IF   Z=Z1   THEN  PRINT  0N(7)C3$   ELSE  PRINT   0N(7)Cu$:    GOTO  400 

450  OLTFILF   ON ( 5 » 0 ) Z » Zl : CLOSE   5:    GOTO  250 

460  PEM......   READ  LATEST   AFFIRMS   DATA   AND   PASS  TO  COMPUCORP  

470  GOSUB  680 

480  F$  =  "AFFIRMS.0"+Y$:CLOSE   5:0PEN   F $  ♦  5 , 0 : T NF I LE  ON(5»0)Z«Z1 

490  IF   Z=Z1    THEN  PRINT  0N(7)N9$:    GOTO  250 

50  0  PRINT  0N(7)A9$ 

510  Zl=Zl+9 

520  INFILE  0N(5,Z-8)T.A(1)  ,A(2)  ♦A(3)  tA(4)  »A(5) ,A(6) f A(7) .A(8) 

530  INFILE  ON(5)A{9)»A(10),A(11)»A(12)«A(13),A(1'+).A(15)»A(16),A(17) 

540  INFILE  ON(5)A(18),A(lg),A(20),fl(21),A(22),A(23)«A(24),A(25),A(26) 

55  0  INFILE  ON(5)A(27),A(2fl),A(29),A(30).A{3l),A(3O),A(33),A(34),A(35) 

56  0  INFILE   CN(5)A(36),A(37),A(38),fl(39),A(40),A(41 ),A(42),A(43),A(44) 

57  0  INFILE   ON (5 ) A (45 )  ,  A(46 )  ,  A (47  )  ,  A (48 )  , A (49 )  ,  A ( 50  )  ,  A (51)  »  A ( 52 ) , A ( 53 ) 

58  0  INFILE  0N(5)A(54)  ,A(55) ♦A(56)  .A(57) ,A(58) ,A(59) .A(60) ♦A{61) ,A(62) 

59  0  INFILE  ON(5)A(63),A(64),A(A5)«A(66),A((^7),A(6«),A(69),A(70),A(71) 
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600  IMFILE  0rj(5)A(72)  tAcTS) 

610  PRINT  0N(7)T 

620  FOR   1=1  TO  73:PRINJ  ON ( 7 ) A ( I ) : MEXT I 

630  INPUT  0N(7)K1$:      IF  Kl$<>A9$  THEN    P'BAO  BLK"!    GOTO  610 

6^+0  IF   Z  =  Z1   THEN  PRINT  0N(7)C3$  EL.«;E  PRINT  ON(7)C«4$:    GOTO  510 

650  OUTFILE  ON ( 5 » 0 ) Z » Zl : CLOSE  5 

660  GOTO  250 

670  REM    GET  HATE  

680  D$=GETDATE$ ( 0 ) 

690  Y$  =  D$(7,a)  :f'!l$  =  D$(  1»2)  :01$  =  D$(at5)  :  RETURN 

700  REW   ERROR  HANDLER   

710  E$=ERR${0) :E=VAL(E$) 

720  PRINT  0N(7)D2$;C5$; :PRTNT  0NC7)"ERR0R   no   -"jE*:"   at  line  no,  "JERL(O) 

730  STOP 

7*+0  END 

PERIODIC  THE  FILEMAKER   AND  PROBABILITY  PROGRAM 

PERIODIC   USES  SEVERAL   FILES.    ALL   MUST  BE  CREATED   AT  THE 
TIME  OF   IMPLEMENTATION.   THE  FILES   ARE!  HALFHR.CNT. 
LTOTL.DTA,    TEP^iP  .  f^iAP  ,  RUFR  .  MAP  ,   B'JFFRl.LTGt   B(.iFFR2  .  LTG  ♦ 

LTNG,082,    AND  DAILY. MAP.    I  TNG. 082   TS  THE  DATA   ARCHIVE,    AND  MAY 

NOT   BE  NECESSARY  FOR   SOME  USERS. 

10  REM  PROGRAM  PERIODIC 

20  REM  FLOPS  THE  STATE  OF  RECORD  NBR.    0   IN  THE  FILE  •HALFHR.CNT' 

30  REM   EVERY  HALF  HOUR.   MAKES   THE   MAP    'TFMP.MAP*   FOR     SHOWTIME  USERS, 

t+O  DIM   B$(10,2) *K$(2) ,M1$(2) .D$(?) »H$(2) .M2$(2) fL$(80) fC9(576) 

50  DIM  P$(^)  ,T8$(2»'+)  »T9J  (2»if)  fSflSCe)  ,S7«(6)  ,M8*(1)  ,M7$(2) 

60  DIM  LO(IOOO)  tKOdOOO)  .LSCI)  »M9$(1»2)  ♦S8(2)  «L1$(6)  »L2$(7) 

70  DIM  Dl$(8)  ,T${8)  »D9$(2)  «Ng$(4)  »F1$(9)  ,F2$(8)  »L5(t^) 

30  DIM  S(6) ,S9(6) ,S3{6) .StCS) ♦A(73) tP(576) fP9(lOOO) fG(6) 

100  S( 1)=2,856:S(2)=3.372:S( 3)=3. 896: S('+)=H, 944:^(5) =7,0^:S(6) =3, 896 

110  S9(  1  )=6.e56:  S9(2  )=7.372:S9(3  )=7.896:sg('*)=8.9i*'+:S9(5)=ll,0it 

120  s3(l)=-86.83:s3(2)=li+9.21:s3(3)=l73.83:s3(t)=P01.13:s3(5)=23l,29 

130  S3 (6 )=l73.e3:B=62  0:C=.785u:Z6=76:S9(6)=7,896 

140  A0  =  170:A9  =  -1401. 65:39  =  2822. l6lTa  =  1.4i+?93:Z8=, 2 

150  S'+{1)=2:S4  (2)='+:s'+(3)=5:S4(4)=6:S4(5)=7:s'+(6)=8 

16  0  si  =  i  :mi=-i  :T3=30  :fi$= "DAILY.  MAP"  :x=ii7:y='+9:n7=o:n8=o 

17  0  B$( 1 )="nuFFRl.LTG":B$ (2 )="BUFFR2.LtG" :F2$="BI!FR.MAP" 
180  L9  =  '+7:R9  =  2:L8  =  lli+:R8  =  3:Z0  =  0:  Y1=24:c6  =  6 

19  0  S2=i :ci=i :c2=2 :C3=3 : 04=4 :o 0=250 :f=2 

200  g(1)=o:g(2)=3o:g(3)=6o:g(4)=130:g(5)=ioooo 

210  FOR   1=1  TO  5:G( I )=G( I )*100/250:NEXTI 

220  FOR   1=1   TO  576:C9(I)=1:NEXTI 

230  REM   *****  +  *********=»:  +  *3tc**  +  ****************************** 

240  OPEN"HALFHR.CNT'M»  0 

250  OUTFILE   ON ( 1 ♦ 0 ) SI : OUTF I LE  0N(1»l)Sl 

260  REM  ************3|r*:4c*5»::»r*:(c**3»:****************tl»r***** 
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270  GOSUB  t+80 

280  T9=T0 

300  FOR  1=1  TO  1500  :q=o :mexti 

310  GOSUB  480 

320  IF   T0-T9<T3   GOTO  300 

330  S1=S1*M1 :OUTFILE   ON(1.0)Si:    GOTO  560 

340  RFM 

350  Gl=l 

360  IF   Z<=G(G1)    THEN  RETURN 

370  IF  Gl=5   THEN  RETURN  ELSE  G1=G1+1 

380  GOTO  360 

39  0  REM   ******************************************** ******** 

400  GOSUB  480 

410  T1=T0 

420  INFILE  ON(X3,0)S 

430  IF   S=?0   THEN   OUTFILE   OM ( X3 , 0 ) Ml : RETURN 

^40  GOSUB  480 

450  IF  T0-T1>3  THEN  OUTFILE   ON(X3.0)M1   ELSE  420 

460  RETURN 

470  REM  ************************************************** 

48  0  D1$=GETDATE$ ( 0 ) : T$=GETT I ME $ ( 0 ) 

490  D9$  =  D1$ (1,2)  :M  =  VAL(D9$ ) 

500  C9$=D1$(4.5) :D=VAL(D9$) 

510  D9$=T$(1,2) :H=VAL(D9$) 

520  D9$=T$(4,5) :M2=VAL(D9$) 

530  T0=(M-1)*4 4640+0*1440 +H*6n+M 2 

540  RETURN 

550  REM  ***************************************************** 

56  0  l3(1)=2:l3(2)=QO+2:l3(3)=2*00+2:l3(4)=3*QO+2:P$="0  000":F9=0 

570  for  1=0  to  3:j=q0*i+1 

58  0  lo(J)=ioi:lO(j+1)=42oi:kO(J)=-i:kO(J+1)=-1;P9(J)=o:p9(J+1)=o 

590  NEXTI 

600  GOTO  1130 

610  REfl  ******************************************** 

620  INFILE  ONd.DSO 

630  IF  S0OS2   THEN   S2  =  S 0  :  CLOSEl :  RETURN 

640  FOR   1=1   TO   1500 :D1=0 INEXTI 

650  GOTO  620 

660  REM  ********************************* 

670  OPEN"LTOTL.DTA" »2»2 

680  INFILE  0N(2»0)C8 

690  FOR   1  =  1   TO   576:INFILE  ON ( 2  )  C9 ( I ) ♦ Z : NEXTI 

700  CLCSE2 

710  F=F+S2:0PENP$ (F) ,2,2 

720  OPEN"LTNG.082",3,1 

730  RETURN 

740  REM  ********************************* 

750  INFILE  0N(2)L$ 


38 


760 

IF  E0F(2)    THEN  F9=-l 

770 

RFTURN 

780 

790 

IF  LEN(L$)<>75  THEN  RETURN 

A  0  0 

O  w  V 

M1$=L$ ( 1 » 2 ) : D$=L$ ( 3 t 4 ) 

A 1  0 

\j  X  \f 

M9$=L$(5«fl) 

A20 

IF  N9$=P$   THEN  RETURN  ELSE  P$=N9$ 

830 

H$  =  L${10»11)  :M2S=L$(13»1'+) 

8^0 

L1$=L$(26»31 ) :L6=VAL(L1S) :L2$=L$(36«4?) :L7=VAL (L2$) 

350 

K$  =  L  $ (49,50) 

86  0 

L1$=L$(54,54)  :n9=\/AL(LlS) 

870 

5>a$  =  L$(57«62)  :i«8S=L$(65«65):S7$=L$(67.72):m7$=L$(75 

«75) 

880 

S8(D9)=VAL(S8$) :M9$(D9)=Mfl$ 

89  0 

IF   D9=C1   THEN  D9=C2  ELSE  09=01 

900 

S8(D9)=VAL(S7$)  !^'9$(D9)=M7$ 

910 

T9$(1)=M1$:T9$(2)=D$:T9$(3)=HJ: T9$ { 4 ) =M2$ 

920 

OUTFILE  0N{3)L6»L7«Sfi(l)tS8(2)»M9${l).M9$(?),K$fMl$ 

1  D$ « 

H$tM2$ 

930 

L1=L9-L6:L2=L8-L7 

9M-0 

IF   ABS(L1)>=R9  THEN  RETURN 

950 

IF   ABS(L2)>=R8   THEN  RETURN 

960 

Y2=Y1*INT( (Y-L6)*C6) 

970 

yi  =  Y2  +  INT (  ( X-L7  )  *C4 ) +1 

980 

C9 ( XI ) =C9 ( XI ) +1 

990 

IF  L1>=Z0   THEN  Z=0  ELSE  Ll =C?+L1 : Z=-2 

1000 

IF  L2>  =  Z0  THEN  Z  =  Z  +  C4  ELSE  L2  =  C3-»-L? :  Z  =  Z  +  3 

1010 

C0=INT(L2*?4)+C1:R0=INT(L1*21)+C1 

1020 

B0=R0*100+C0 

1030 

K= ( QO* ( 2-1 ) ) +C1 

104  0 

IF   ( BO<=LO ( K ) ) OR ( K>L3 ( Z ) )    GOTO  1060 

1050 

K=K+Ci:   GOTO  1040 

1060 

IF  K>L3(Z)    THEN  L 0 ( K ) =B 0 : K 0 ( K ) =1 J P9 ( K ) =P ( XI ) I L 3 ( Z  )  = 

k:return 

1070 

IF  30=L0(K)    THEN  KO ( K ) =K0 ( K ) +rl : RETURN 

loao 

FOR    I=L3(Z)    TO  KSTEP-1 

1090 

K0(i+i)=K0(i):L0(i+i)=L0(i):P9(i+i)=P9{i):NEyTi 

11 00 

K0(K)=Cl:L0(K)=B0:P9(K)=P(Xl) ! L3 ( Z ) =L3 ( Z ) +1 

lllO 

RETURN 

1120 

RE:M    ***********************************  ******:«c*********** 

1130 

GOSUB  620 

imo 

GOSUB  1980 

1150 

GOSUB  670 

1160 

GOSUB  750 

1170 

IF  F9  GOTO  1210 

1  180 

J,  ^  W  li 

GOSUB  790 

1190 

GOTO  1160 

120  0 

1210 

CL0SE2:CL0SE3 

1  ^2n 

0PEN"LT0TL,DTA" ,2*0 

1230 

INFILE  ON(2»0)C8 

1240 

FOR   1=1   TO   576:INFILE   ON ( 2 . I ) 7 « C8 : OUTFILE  ON ( ? , I ) C9 ( I ) » 

cenviEXTi 
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1250  CL0SE2 

1260  OPEN  F1$,2,0:OPEN  F2$.3,l 

1270  INFILE   0N(2»3)L5(1)  ,L5(2)  :INFTLE  OM  (  2  .    )  L5  (  3  )  .  L5  (  4  ) 

1280  FOR   1  =  1  TO 

1290  K=(Q0*(I-1)  )+1:K1=L5{I) 

1300  FOR   J=l   TO  Kl 

1310  INFILE  0N(2)Kt+,m«P4 

1320  IF  LO(K)<>L'+   GOTO  l3go 

1330  Ka-  =  K'+  +  KO  (  K  ) 

13^10  OUTFILE  0N{3)K'+»L'+fP9(K) 

1350  K=K+1 

1360  IF  K<=L3(I)    GOTO  1500 

1370  IF  J=K1   GOTO  1500 

1380  J2=J+i:    GOTO  1450 

1390  IF  L0(K)<L4  GOTO  1410 

1400  OUTFILE   ON  (  3  )  K4  «  L4  ,  P4  :    GOTO  IF^OO 

1410  OUTFILE  ON(3)K0(K)  fLO(K)  ,P9(K) 

1420  K=K+1 :L5 ( I ) =L5 ( I ) +1 

1430  IF  K<=L3(I)    GOTO  1320 

1440  IF  J=K1   GOTO   1500   ELSE  J2=J 

1450  FOR   J1=J2   TO  Kl 

1460  INFILE  CN(2)K4,L4tP4 

1470  OUTFILE   ON ( 3 ) K4 » L4 » P4 

1480  MEXTJl 

1490  J=Jl 

1500  NFXTJ 

1510  IF  K>L3(I)    GOTO  1560 

1520  FOR  J=K  TO  L3(I) 

1530  OUTFILE   ON ( 3 ) KO ( J ) » L 0 ( J ) » P9 ( J ) 

1540  L5(I)=L5(I)+1 

I55n  NFXTJ 

1560  MFXTI 

1570  CL0SE3:0PEN  F2$«3»2 

1580  X3=2:G0SUB  400 

1590  OUTFILE   ON ( 2 , 2 ) T9$ ( 1 ) . T9$ ( 2 ) , T9J ( 3 ) » T9$ ( 4 ) 

1600  OUTFILE   ON (2 , 3 ) L5 { 1 ) ,L5 ( 2 )  : OUTFILE   ON ( 2 t 4  )  l5 ( 3 )  . L5 ( 4 ) 

1610  INFILE  0N{3)K4,L4»P4 

1620  IF  E0F(3)   GOTO  1650 

1630  OUTFILE   ON ( 2 ) K4 » L4 , P4 

1640  GOTO  1610 

1650  CL0SE3:DELETE  F2$:CREATE  F2$,?»12 

1660  OUTFILE  ON  (2,  0  )  ZO  :CL0.SE2 

1680  0PEN"TEMP.MAP" , 5,  0 

1690  X3=5:G0SUB  400 

1700  OUTFILE   ON ( 5 , 1 ) T8$ ( 1 )  .  T8$ ( 2  )  t T8$ ( 3 ) » TPS ( 4 ) 

1710  OUTFILE   0N(5,2)T9$(1)  .T9$(2) ,t9${3)  »T9$(4) 

1720  FOR   1  =  1   TO   4:L3 ( I  )=L3 ( I ) - (QO* ( I-l )  ) :NFXTI 

1730  OUTFILE   ON ( 5 » 3 ) L3 { 1 ) ,L 3 { 2 ) 
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I74n  OUTFILE   ON  (  5  , )  L3  (  3  )  ,  L  3  ( t ) 

I75n  FOR   1=0  TO  3 

1760  K=QO*I 

I77n  FOR   J=K+1   TO  K+L3(I+1) 

1780  OUTFILE  ON ( 5 ) KO ( J ) » LO ( J ) » P9 ( J ) 

1790  NFXTJ 

1300  NFXTI 

13ln  OUTFILE  ON(5,0)Z0 

1820  CL0St5 

1830  FOR   1  =  1   TO  '4:T8$(  I)=T9$(  I)  :NEXTI 

ia<+0  DELETE  B$(F) 

1850  CREATE  B$(F),2,78 

1860  OPEN"LTOTL,DTA"»1»0 

1870  IMFILE  ON(1«0)C8 

1380  FOR   1=1   TO  576 

1890  INFILE  0N(1)Z«Z1 

1900  GOSUB  350 

1910  IF  61<=Z1   THEN  1930 

1920  OUTFILE  ONdtl  )Z,Gi:C8  =  -l 

1930  C9(I)=G1 

IS'+O  NEXTI 

1950  OUTFILE  0N(1»0)C8:CL0SE1 

1960  OPEi\l"HALFHR.CNT"»1.0:    GOTO  270 

1970  REM  **************************************5»:***3»tj»c*3»t 

1980  N9=-l 

1990  OPEN"UWU,0a2'S2i2: INFILE  ON(2t0)Z»Zl 

2000  IF  Z=N7  GOTO  2030 

2010  N9=0:N7=7: INFILE  ON ( 2 . N7 ) Zl » Wl ♦ W2 » W3 

2020  W={Wl+W2+W3)/3 

2030  CLOSE2:OPEN"AFFIRMS.082"«2»2:tNFILE  OM(2fO)Z,Zl 

20tt0  IF  Z  =  Na  GOTO  2150 

2050  N9=0:N8=Z 

2060  INFILE  ON  (  2  »  Z-8  )  Zl »  A  ( 1 )  ♦  A  (  2  )  t  A  (  3  )  »  A  ( )  ♦  A  (  5  )  ♦  A  (  6  )  ♦  A  (  7  )  ,  A  (  8  ) 

2  070  INFILE  0N{2)A(9)»A(l0),A(ll),A(12)»A(l3).A(m),A(15)»A(16),A(17) 

2080  INFILE  Ol\l(2)A(18),A(19),A(20).A(21)»A(22),A(P3),A(2f)tA(25)fA(26) 

2090  INFILE  ON(2)A(27)»A(28).A(29).A(30)»A(31)»A(^2)»A{33)»A(3«t)»A(35) 

210  0  INFILE  0N(2)A(36)  ♦A(37)  .A(38)  ,A(39)  ♦AfUO)  fACt+l)  tAC+a)  «A(«I3)  «A(*t<+) 

2110  INFILE  0N(2)A(45)  tAC+ft)  ,A('f7)  .AC+S)  tA(49)  tACSQ)  «A(51)  ,A{52)  «A(53) 

2120  INFILE  ON(2)A(5'+)»A(55),A(56).A(57)«A(58),fl{«=9),A(60)«A{61),A(62) 

213  0  INFILE   0N(2)A(63) ,A(64) .Af65) .A(66) tA(67) ♦A(f8) »A(69) ,A(7  0) »A(71) 

2140  INFILE  0N(2) A(72)  tA(73) 

2150  CL0SE2 

2160  OPEN"LTOTL.DTA".2«0 

2170  INFILE   ON (2» 0 )C8:CL0SE2 

2180  IF  C8   THEN  N9=0 

2190  IF  N9  THEN  RETURN 

2200  OPEN"SQRDATA,DTA"  ,2»2 

2210  FOR   1=1   TO  576 

2220  INFILE  0N(2)P(I) 
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2230  GOSUB  2300 

22^+0  P(I)=PO 

2250  NFXTI 

2260  CL0SE2 

2270  RETURN 

2280  RFM 

2290  RFM   FIGURE   PROBABILITY   FOR      ONE  SQUARF 

2300  S7  =  INT ( P ( I )/100 ) :R1  =  P ( I  ) -S7*100 

2310  R0  =  Si|(Rl)*.16E-l 

2320  L.=  INT(A(S7)/100):FO  =  A(S7)-L*inO 

233n  IF   LO&   THEN   L  =  C9{I) 

2340  DO=-S(L)/W 

2350  F5  =  0:F1+  =  1 

2360  IF  L=6   GOTO  2420 

237  0  F5=(S3(L)*W*S(L)+C*S(L)*S(L)  ) / ( S3 ( L ) *W*S9 ( L 1 +C*S9 ( L ) *S9 ( L)  ) 

2380  Ft4-  =  1-F5 

2  39  0  F3=FO+(Z6-FO)*(1-EXP(DO)):F3=F3/100 

2400  E=RO* { A0+B*F3 ) 

2410  P1=(1+(E/B9)''T8)^A9 

2420  F3=F0/100 

2430  E=R0* ( A0+B*F3 ) 

2440  P2=  ( 1  + (  E/B9  ) '"Ta  ) '^Ag 

2450  P0= ( F5*P1  +  F4*P2  )  *Z8 

2460  RETURN 

247 0  REM 

2480  END 

SHOWTIME    FORMATTING   AND  OUTPUT  PROGRAM 

ALL   FILES   IN   SHOwTIMP   HAVE   ALREADY   BEFTi   CREATFD   irJ  IMPLEi^lENTING 
THE  OTHER  PROGRAMS, 

********  **5tE**  *******************  **************************** 

10  REM  SHOWTIME 

20  CL0SE7 : OPEN"CON : " »7 t 0 

30  DT:^  N$(9,4),P$(l),Q$(8)tLS(l»73),Q0$(2)»Nl$(^t4)»Ll$(73) 

^0  DIM  M$(2)iMl${2),M2$(?),M.^$(2)»D$(2),n2$(2).H$(2)iH2$(2)»G3$(25i2) 

50  DIM  R$(1),Q9$(39),Q8S{22),Q7$(9,2),03(3),Q6$(10»2)»05S(7  0)»G4$(15,2) 

60  N$ ( 1 )= "NORTHWEST" :N$ ( 2 )=" NORTHEAST" 

70  r'$(3)=  "  SOUTHWEST  ":n${4)="  SOUTHEAST" 

30  Q9$  =  "WHICH   QUADRANT   WOULD   YOU   LIKE      TO      SEE  '?" 

90  G8$="ENTEP   AN   OPTIOTJ  NUMBER" 

100  Q7$ ( 1 ) ="TEMP,MAP" :Q7$ ( 2 ) ="DATI  Y.MAp" 

110  Q6$(1)="HALF   HOUR" : Q6$ ( 2 ) ="CUMULATIVE" 

130  Q4$(l)="   LIGHTNING    ":n4$(2)="   EXPECTED   FIRE  " 

140  33$(1)="   STRIKES    IN   THE  QUADRANT." 

150  n25$(2)  =  "   SQUARES  EXPECTING  FIRES," 

160  03{1)=21:03(2)=43:03(3)=42 

17  0  Nl$ ( 1 )  =  "NW" : Nl$ ( 2 )  =  "NF" : Nl $ ( 3 ) ="SW" : N 1  $ ( 4 )  =  " SE " : P  =  3 6 ! P 1  =  1 : L8  =  4  3 
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190  HlM  get  user  input 

POO  OrjERROR   GOTO  210 

210  PRINT  0N(7)09$(1»P)    5"      ( MW ♦ MF ♦ S W » SE ) " 

220  INPUT     ON (7)00$ 

230  REM  ********************************************************** 

2^+0  1  =  1 

250  IF   Q0$=N1${I)    THEN  QO=i:    GOTO  280 

260  I  =  I  +  i:iF  GOTO     210   ELSE  2?S0 

270  REM 

280  IF  P  =  15   THEN  t+10 

290  PRINT   0rj(7):    PRINT  0N(7)"  OPTIONS" 

300  PRINT  0N(7)"  LIGHTNING  MAPS" 

310  PRINT   0N(7)"  1.   LAST   HALF  HOUR" 

520  PRINT   0N(7)"  2.  CUMULATIVE" 

330  PRINT  0M(7)"  EXPECTED  FIRF  MAPS" 

3^+0  PRINT  0N(7)"  3.    LAST  HALF  HOUR" 

350  PRINT   0N(7)"  4.  CUMULATIVE" 

360  PRINT  0N(7)"  OTHERS" 

37  0  PRINT   ON (7)"  5.    1    AND  2" 

380  PRINT   ON (7)"  6.    3   AND  1" 

390  PRINT   0N(7)"  7.    2   AND  4" 

UOO  REM 

mO  ONERROR  GOTO  420 

420  PRINT  0N(7)08$(P1) 

430  INPU'  0N{7)02 

450  IF  02<1   OR   02>7   THEN  420 

460  IF  02>4   THEN  02=03(02-4) 

i+70  IF  02  =  0   GOTO  960 

480  04  =  1 NT (02/10)  I  01  =  02- ( 04*10 ) ; 02  =  04: 04  =  1 

490  IF   01>2   THEN  04=2:01=01-2 

■^0  0  REM  ********************************************************* 

510  ONERROR   GOTO  920 

520  REM    ;    REQUESTED  MAP 

530  CL0SE2:0PEN  Q7$(0l)»2»0 

540  INFILE  ON(2»0)S 

550  IF   S<0   GOTO     540   ELSE  OUTFILE  ON(2,0)S+1 

560  INFILE  0N(2)M$,D$tH$.MlS 

570  INFILE  0N(2)M2$,D2$,H2$,M3$ 

580  INFILE  0IM(2)L(1)  »L(2) 

590  INFILE  0iM(2)L(3)  »L(4) 

600  R9=4 

610  IF   Q0=1   GOTO  640 

620  FOR   1=1   TO   GO-1 :R9=R9+L ( I ) :NEyTI 

630  INFILE  0N(2.R9)K9«L9,P9 

640  PRINT   ON (7):    PRINT  ON ( 7 ) CHR$ { 1 2 ) 

650  PRINT   0N(7)"THIS   IS   THE   "    ?    N$(QO)    ?"   "    J    Q6f(0l)    J    Q4$(04)  ;"MAP," 

660  PRINT   ON (7) "THIS   MAP   COVERS   THE  PERIOD" 

670  PRINT  0N(7)"FR0M   :     " ; M$ J " / " ; n$ ; "         " ; H$ ; " : " J Ml$ ; "  (MDT)" 
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680  PRINT  0N(7)"  TO       I    " ;  M?$ ;  ••/" ;  02$  J  "       "  J  HPS ; " : " ;  ffl3$ ; "  (MdT)" 

690  IF  L(Q0)>2   THEN  710   FLSE  PRINT  0N(7) 

700  PRINT  0N{7)"N0  LIGHTNING   IN  THE   "    :    Nf(QO)    J"   MAP   AREA,";   GOTO  910 

710  PRINT  0N(7)G5$ 

720  PRINT  0N(7) 

730  REM     ******  **********************3«t****  ************** 

7fO  Ri=i :p2=i :k8=o 

750  FOR   1=1   TO  L(Q0) 

760  INFILE  0N(2)K9,L9,P9 

770  R2=INT (L9/100 ) :C2=L9-R2*100 

780  ONO^+GOSUB  1010,1050 

790  IF  R10R2   THEN  830 

300  IF  P2=C2   THEN  J=P2:    GOTO  820 

810  FOR  J=P2  TO    (C2-1  )  :L$  ( J  )  =  ••  "twEXTJ 

820  L$( J)=PS:P2=J+1:    goto  870 

830  FOR   K  =  l   TO  P2-i:   PRINT   0N(7)La.(K)    ;    INEXTK:    PRINT  0N(7) 

8^+0  ri=ri+i:p2=i:l$(1)  =  "  " 

850  if  r1<=l8  goto  790 

860  print  on  (7  )  "internal  error.  unable    to    flnlfjh  map  ,  "  :  i=l  (  qo  ) +1 

370  NEXTI 

880  FOR   K=l   TO   P2-i:    PRINT   0N(7)L$(K)    ;    INEXTK:    PRINT  0N(7) 

890  PRINT  0N(7) 

900  PRINT  0N(7)"THERE  WERE   "    ;    K8    ;  Q3s(0U) 

910  PRINT  0N(7)Q5$ 

920  INFILE   ON(2,0)3:OUTFILE  ON ( 2 » 0 ) S-1 : CL0SE2 

930  PRINT  0N(7):    PRINT  0N(7) 

9'+0  GOTO  ^+70 

950  REM  ************************************************ 

960  PRINT   0N(7)"M0RE  MAPS   ?      (Y   OR  N)" 

970  INPUT  0N(7)RS 

980  IF  R$="N"   THEN  STOP   ELSE   IF  RJ="Y"   THEN  P=15!P1=10:    GOTO  200 

990  GOTO  960 

lOOn  REM  ************************************************** 

lOlO  IF  K9<=0   THEN  P$="X"   ELSE   IF  k9<10   THEN  P$=Str${K9)    ELSE  P$="*" 

1020  IF  K9>0   THEN  K8=K8+K9 

1030  RETURN 

lOM-O  REM  *********************************************************** 

1050  P0=K9*P9 

1060  IF  L9  =  1010RL9  =  t+20l  THEN  P$  =  "X"  :  RETURN 

1070  IF  P0<=0   THEN  P$="  "IRETURN 

1080  K8=K8+1 

1090  IF  P0<=.2  THEN  P$=" 1 ": RETURN 

1100  IF  PO<=.t+   THEN  PS  =  "2"  IRFTURN 

1110  IF  P0<=.8   THEN  P$  =  "3"   ELSE  P$  =  "t*" 

ll2n  RETURN 

Il30  RFM  **************************************************** 

1140  END 
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Latham,  Don.  LLAFFS— a  lightning-locating  and  fire-forecasting  system.  Res. 
Pap.  INT-315.  Ogden,  UT:  U.S.  Department  of  Agriculture,  Forest  Service,  Inter- 
mountain  Forest  and  Range  Experiment  Station;  1983.  44  p. 

This  paper  presents  a  system  for  locating  lightning  strikes  and  predicting  the 
number  of  fire  ignitions  on  forests  and  rangelands.  This  system  uses  variables 
representing  weather  and  fuels  and  real-time  lightning  locations  as  inputs.  Out- 
puts from  the  system  consist  of  printouts  designed  for  use  with  overlays  to  map 
probable  fire  locations.  The  programs  are  designed  to  be  used  by  field  person- 
nel having  access  to  a  micro-  or  minicomputer. 
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The  Intermountain  Station,  headquartered  in  Ogden, 
Utah,  is  one  of  eight  regional  experiment  stations  charged 
with  providing  scientific  knowledge  to  help  resource 
managers  meet  human  needs  and  protect  forest  and  range 
ecosystems. 

The  Intermountain  Station  includes  the  States  of 
Montana,  Idaho,  Utah,  Nevada,  and  western  Wyoming. 
About  231  million  acres,  or  85  percent,  of  the  land  area  in  the 
Station  territory  are  classified  as  forest  and  rangeland.  These 
lands  include  grasslands,  deserts,  shrublands,  alpine  areas, 
and  well-stocked  forests.  They  supply  fiber  for  forest  in- 
dustries; minerals  for  energy  and  industrial  development;  and 
water  for  domestic  and  industrial  consumption.  They  also 
provide  recreation  opportunities  for  miUions  of  visitors  each 
year. 

Field  programs  and  research  work  units  of  the  Station 
are  maintained  in: 

Boise,  Idaho 

Bozeman,  Montana  (in  cooperation  with  Montana 
State  University) 

Logan,  Utah  (in  cooperation  with  Utah  State 
University) 

Missoula,   Montana  (in  cooperation  with  the 
University  of  Montana) 

Moscow,  Idaho  (in  cooperation  with  the  Univer- 
sity of  Idaho) 

Provo,  Utah  (in  cooperation  with  Brigham  Young 
University) 

Reno,  Nevada  (in  cooperation  with  the  University 
of  Nevada) 


